
DES PROGRAMMES POUR VOTRE 

ORDIN ATEUR : APPLE ll et ll e . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20. HEWLETT PACKARD HP 41 et 
HP 75. MULTITECH MP-FII. ORIC 1. SHARP PC 1211, PC 1251, 
PC 1500, MZ 80. SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 
80. TEXAS TI-99/4A. THOMSON T07. 

DEUX SUPER CONCOURS : 10000 francs de 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 



Numero 2 



Ca y est, voila deja le numero 
deux Nous nesommes plus tout 
a fait nouveaux et pourtant il taut 
rappeler la formule de notre 
journal qui nest pas fait comme 
les autres et qui nest pas assez 
vieux pour etre connu de tous 

Hebdomadatre d'abord. pour ne 
pas que vous attendiez un mois 
votre programme Au moins un 
programme par ordinateur. cha- 
que semaine Pas d'essai de ma- 
teriel, vous en trouverez dans 
vos mensuels habituels 

Pas de cours techniques, pas de 
conseils pour acheter un ordina- 
teur. pas de cours de basic, vous 
trouverez d'excellents livres trai 
tant de ces sujets 

Nous, ce qui nous interesse, 

c'est le SOFT; les logiciels. les 
programmes, les nouveaux Ian 
gages 

suite page 7 



Menu 



Programmateurs. mes treres. 
a vos claviers! Cette semaine 
encore vos microprocesseurs 
ne vont pas chomer 

Votre APPLE II va enfin ap* 
prendre a utihser convenable- 
ment les chaines de caracteres. 
finis les bncolages pour recupe- 
rer les morceaux de chaines el 
les bouts de syllabes Pierric 
GLAJEAN vous permettra de 
manipuler meme les alexan- 
drins 

Un vrai logiciel de LOTO avec 
prise en compte des numeros 
sortis les semaines precedentes 
va vous aider a boucler les fins 
de mois difficiles grace a votre 
CASIO FX 702-P el a 
M COURTY 

Si vous avez un TEXAS Ti-99/ 
4A vous etes chouchoutes un 
combat de lespace (ALIENS) en 
basic simple et un MUFt DE BRI 
QUES (MAGIBRIQUE) en basic 
etendu par GilDert MAGGlO 

Un autre MUR DE BRlQUES 



pour SHARP MZ 80 par Simon 
CHAGNOUX . touiours pour 
SHAR' J . un utilitaire "Dour mettre 
les secrets de votre PC 1500 a 
labri (PASS WORD) Une loupe 
sera probablement necessaire 
pour utiliser le mini-mini traite- 
ment detexte PC 1251 de Cathe- 
rine CHAVINIE (la seule femme 
publiee. une honte' Ou sonl les 
programmeuses?) 

Et deux programmes pour le 
PC 1211. deux! BASHICjeude 
transformation de base et ME- 
MORY un |eu de memoire par 
Nicolas CHATELAIN 

Quand vous aurez reussi a de- 
barquer sur la lune avec votre 
HP 41 et Bernard RAGOT. vous y 
trouverez peut-etre Ariel CHE- 
MOUNY essayant son program 
me de GOLF (VIC 20) dans les 
crateres de notre satellite ou 
J-M JACQUET aux prises avec 
son super programme de TANK 
pourZX-81 

Votre COMMODORE 64 va 
pouvoir ammer vos SPRITES 
grace a lutilitaire de Claude MA- 
CE Yet vous chargerez la casset- 

suitepage 14 



Edito 



Vous etes formidables ' 

Tout s'est pourtant lie contre 
nous, la publicity que nous ont 
refuse nos "confreres'* pour taire 
connaitre notre revue, une greve 
des postes qui a bloque lenvoi 
des courners annoncant la nais- 
sance dHEBDOGICIEL , des re 
bondissements de cette greve 
qui n'ont (acilite ni lenvoi de vos 
programmes, ni la reception de 
vos pelites annonces. ni lexpe 
dition des premiers abonne 
ments 

Et pourtant vous etes deja 
1 7 000a avoir achete HEBDOGI- 
CIEL, les programmes sont arri- 
ves malgre les postiers. nous 
avons recu des cassettes de 
tous les coins de France de 
Quimper a Nice et de ILLKIRCH 
(c'est en Alsace!) a Tarbes 

II faut qu HEBDOGICtEL devien 
ne vraiment VOTRE journal, par- 
lez de votre revue autour de 



vous abonnez vous pour que 
nous puissions passer plusieurs 
programmes par ordinateur 

Ecrivez-nous pour nous faire 
des remarques. des suggestions 
et meme des reproches ' Les or- 
dmateurs que nous avons choi 
sis pour les premiers numeros 
ne sont pas les seuls qui exis 
tent, devons-nous en accueilli 
de nouveaux? Estce qu'une 
cassette recapitulant les pro- 
grammes du mois vous interes 
serait? Devonsnous diffusei 
des programmes par linterme 
diaira dune radio ? Que pensez 
vous dun programme en "code 
barre" ? 

Ecnvez nous; donneznous vo- 
tre avis, faites-nous croulersous 
les sacs de courrier! 



G CECCALD1 




(N°2 ) 

\^l^ ^m 21octobre83 J 



Allemagne 3,50 DM Belgique 55 Frs Canada 2,50 S Luxembourg 57 Frs Suisse 3 Frs 



PASS WORD 



Ne laissez pas trainer votre PC 1500 ou entrez le pro- 
gramme ci-dessous pourdecourager les indiscrets qui 
voudraient violer les secrets de vos programmes. 
Poureteindre votre machine, faites RUN "OFF". Donnez 
un mot de passe ou pressez "ENTER" si vous desirez 
conserver I'ancien mot de passe. A I'allumage, pour 
pouvoir utiliser normalement votre PC 1500, il vous 
faudra donner le mot de passe en pressant chaque 
touche toutes les secondes (au moment du beep, il faut 
que vous ayez le doigt sur la bonne touche !). 
Si vous attendez plus d'une seconde ou si vous vous 
trompez, la machine s'eteint automatiquement. Au 
bout de 8 essais infructueux, il n'est plus possible d'allu- 
mer votre PC 1 500 sans faire ALL RESET. 
Pour utiliser ce programme, faites une fois pour 
toute:NEW&3916. 

Ce programme ne fonctionne que sur PC 1 500avec CE 
155 (module 8 K). 

POUR MEMOIRE 



D6 BE COLL RSCURS 

D? EC 

DB AE 

D9 F2 SBR CLS 

Dfl BE CALL A. P.O. 

DB £3 

DC 3F 

DD ED CP8.(38C4),0B 

DE 38 

DF CI 

KB 08 

EJ 89 

E2 30 



JR NZ *30 
LD Xh, 38 
LD XI, C5 



65274; "of f'JNPUT " 
Password: i A 
*:F0R I = 1 TO 
LEN ft*: POKE 
838C1+ J, fiSC 
nioi (ft*, I, i 
):NEXT 1: 
POKE R38C4*I 
■ SBD 

65275: POKE 8,3806, & 
BE, &EC, SftE, & 
F2, &BE, &E3, tJ 
3F, 6ED, 8.38, 8 
C4, 888, 883, 8 
38, 868, 838, 8 
6ft 

65276; POKE 838L6, & 
C5, 825, 887, 8 
00, 889, 801, 8 
9ft, 8F0, 808, 8 
BE, 8E4, S2C, 8 
FD, 82ft, 82?, 6 

65277; POKE R38F6, 8 
03, 8A5, 838, 8 
C4, 8DD, BflE, 8 
38, 8C4, B9E, 8 
2ft, 8FD, 6ft8, 8 
BE, 8ED, 84D, 8 
BE 

652=78; POKE S3906, 8 
E6, 869, 868, 8 
00, 860, 840, 8 
CD, SAC, 8FD, 8 
2ft, 864, 8SE, 8 
2C, 8BA, 878, 8 



PC 1500 



LD A, (38C4> 




65279. POKE &78C0, 8 
BE, 8E3, 8 .31 , £ 
9E, 805: POKE 
838C4, 800. 
CALL 838D6 | 



E3 I 

E4 38 
E5 6ft 
E6 C5 
E7 25 
E8 B7 
E9 00 
Eft 89 
EB 01 
EC 9A 
ED FD 
EE 08 
EF BE 
F0 E4 
Fl 2C 
F2 FD 
■=3 2ft 
P4 2? 
F 5 88 
F6 09 
*7 A5 
F8 38 
F9 C4 
FA DD 
FB AE 
FC 38 
FD C4 
FE 9E 
FF 2A 

00 FD 

01 OB 

02 BE 

03 ED 

04 4D 

05 BE 

06 E6 
97 63 
08 68 



0ft 6ft LD XI, 40 

0B 40 

0C CD SBR WAIT 



0E FD POP XhXI 
0F 20 

10 64 INC XhXI 

11 9E JR -2C 

12 2C 

13 BA JR 78C0 

14 78 

15 C0 



SURFACE 



Ce programme vous permet de calculer automatique- 
ment la surface d'une piece ou d'un terrain de forme 
complexe. Raccrochez votre chaine d'arpenteur et 
obtenez la surface exacte du nouvel appartement que 
vous allezacheter. 






/ 




1 CLS 

2 INPUT *¥OULEZ VOUS LE WOE O'OTLOI 

3 IF L£FTf(WS,l) a *0'THEK GOSUB 3000 

5 CLS 

6 CONSOLE 0.2 

11 CO*0:LO-199:CA-0:U*199:l(H-0 

12 DIM PIEC1(»,6) 

14 SCREEN 4.6,6 

15 BOKF (0.0]-(319,24),t 

16 BOXF (0.2S)-(319.199) 

20 FOR 1-1 TO 60 

21 IF 1-1 GOTO 91 

30 PSET(CA.LA).I 

31 INPUT •LONGUEUR M( 
35 IF LG - THEN 1000 
37 ANO-0 

40 IF VH-0 THEN INPUT ■HAUT OU BAS [H/B) ■;Hb|:»H-1:CA-CD:IF HBt- '6' THEN GOSUB 
120 ELSE GOSUB 130 ELSE INPUT "HI01TE OU GAUCHE (0/G) *;DGS:VH-0:LA*LO:IF DC1 * 
"D" THEN GOSUB 140 ELSE GOSUB ISO 

SO IF ANO-0 GOTO 90 

60 IF VH-0 THEN VH<1 ELSE VH-0 

70 INPUT" UHMftL IE * LONGUEUR '.LG:GOT03S 

90 LINE ICD.LD)-(CA,LA),-1 

91 PIECKI.1KD 

92 PIEC1(I.2)-LD 

93 P1EC1{1,3)-CA 

94 PIEC1(I.4)-LA 

95 PIECU1,5)-X 

96 PIECl(l.6)>r 

99 C0*CA:LD*LA 

100 NEXT I 
110 GOTO 2000 

120 IF Y-lG <0 THEN AN0-1:G0T0129 

121 T-t-LG 
123 LA-IA*[LG'20) 

129 RETURN 

130 IF T*LG >B THEN ANO-1:GOT0139 

132 Y-r+LG 

133 LA-LA-(LG«2Q) 

139 RETURN 

140 IF X*LG >16 THEN ANO-l:GOT0U9 

141 X-X+LG 
143 «-CA*(LG»20) 
1*4 RETURN 




ISO IF X-LG <0THEN M0-1:GOTO 1S9 

161 I-X-LG 

163 CA-CA-(LG*20) 

169 RETURN 

1000 IF PIEC1(1-1.S)*0 WCDPIEC1(I-1,6)*0THEH 2000 

1020 LINE (C0.LD)-(0.199).-1 

2000 S-0 

2010 FOR K-l TO 1-1 

2020 IF K-l ■ THEN 12-1-1 ELSE L2-K-1 

2030 IF K>] >l-l THEN LI- 1 ELSE LI ■K*l 

2040 S-S+lPIECUll,6)-PIECHL2.6))-PIECI(lt,5) 

20M NEXT K 

2060 S-S/2 

2062 CLS 

2063 ATTRB 0,1 

2064 LOCATE 0.4 
2066 PRINT "SURFACE ■ *;ABS(S) 
2070 ATTRB 0.0 

2080 0AIMNKETS:1F 0AS**"G0T020B0 
2086 CONSOLE 0,24 
2100 END 

3000 BOXF (0,0)-[319. 1991.0 
3010 PRINT 'CALCUL Of LA SURFACE" 
3020 PRINT'O'UNE PIECE OU D'UN TERRAIN" 
3030 PRINT 



BAS-HIC pc 1211 



Le jeu consiste a executer des calculs dans d'autres 

bases que la base 10 (la base est choisie aleatoirement 

entre 2 et 10 inclus). 

Le programme propose 20 problemes a la suite des- 

quels il attribue une note sur 20. 

Marche asu ivre _: 

1 . Mode RUN : taper RUN ENTER ou mode DEF : taper 
SHIFT A apres les explications. 

2. Entrez le niveau de jeu qui correspond a la com- 
plexite des operations (1 = facile, 3 = difficile). 

3. Choisir I'operation : + ou *. 

4. Introduire une semence pour le generateur de nom- 
bres pseudo-aleatoires. 

.5. Repondre aux questions dans la base choisie. 



T07 



Nicolas CHATELAIN. 




10: 



l:GOT0 "fl" 
5: "ALEA"N=N*99 
7-i-X:N=N-INT 
N: RETURN 
"10->A"Z=INT 
(LOG B'LOG fl 
>: 0=0: FOR ¥" 
ZTO OSTEP -1 
:X=INT (B'A~ 
Y>:B=B-X*A"Y 
:IF X=ALET X 
=10 

12:0=0+X*10"Y: 
NEXT Y: 
RETURN 

15:"A-MO"Z=INT 
LOG 8:B=0: 
FOR V-ZTO 
STEP -1:X= 
INT (CVIO'-Y) 
:Q=Q-X*10^Y: 
IF X=10LET X 
=A 

16: IF X>=flLET B 
=1 

17:B=B+X*A"Y: 
NEXT Y: 
RETURN 

20:"A"BEEP II 
PRINT " ** 
BASE-HIC **" 

30: GOSUB "EXPL" 



40:"B"CLEAR :E= 

l: INPUT "NIV 

EAU (l-3>?"> 

E 
50: L*=" + ": INPUT 

" + OU * ?"> 

L* 
60: INPUT "SEMEN 

CE ?"!N 
T0:F=0:IF !_*=" + 

"LET F=l 
30:G=1-F 
90:M*=L* 
100: FOR I=1T0 10 
110: GOSUB "ALEA" 

:A=INT (M*9+ 

2) 
120: GOSUB "ALEA" 

:B=INT (N*10 

"E+n 
130: GOSUB "ALEA" 

:C=INT CN*10 

'•E+n 

140:D=F*(.B+C,'+G* 

B*C 
150: BEEP l: PAUSE 

"BASE "SA 
160: GOSUB "lf»A 

":P=0:B=C: 

GOSUB "10->A 

170:PRINT PJM*iC 



180i0=li INPUT "R 

EPONSE '-"SO 
190: V=0: GOSUB "A 
->10":IF B=B 
BEEP 2: PRINT. 
WEST EXACT 
•": J»J+l:H» 
OsGOTO "Q" 
200: B=B: GOSUB "1 
0->A":BEEP 3 
: PRINT "FAUX 
.REP0NSE:":n 
:H=H+1:IF H= 
3THEN "W" 
210:"0"NEXT I 
220:"W"K=INT <<J 
/I)*20):DEEP 
2: PAUSE " ** 
TERM I HE! ** 

230: beep 1: print 
"votre note: 
";ks"/20" 

240: END 

300: "EXPL "PR I NT 



"LE BUT BU .1 

EU" 
310: PRINT "EST B 

E FAIRE" 
320: PRINT "DES C 

ALCULS" 
330:PRINT "BANS 

B'AUTRES BAS 

ES." 
340: PRINT "LES Q 

UESTIONS ET" 
350: PRINT "LES R 

EPONSES SOHT 
DANS" 
355: PRINT "CETTE 
AUTRE BASE. 

3601 BEEP 1: PR I NT 
"BASE 2 h 10 

370: PRINT "3 ERR 
EURS BE SUIT 

E->FIH" 
380: RETURN 



MEMORY 



But du jeu : memoriser une suite de nombres pseudo- .. 

aleatoires de plus en plus longue. n( ~ 19 I I 

Mode d'emploi: r*^ 

1 . Tapez RUN ou SHIR A (en mode DEF). 

2. Introduire une semence dans le generateur de nom- 
bres pseudo-aleatoires. 

3. Choisir le niveau. La machine affiche alors les uns 
apres les autres tous les chiffres de la serie. apres 
quoi le joueur doit les repeter par les INPUT suc- 
cessifs. 

Le niveau choisi correspond au nombre de chiffres des 
nombres aleatoires. 

A noter l'"astuce" de la ligne 220 et de la ligne 230 per- 
mettant de sortir de la boucle FOR NEXT sans erreur. 




Nicolas CHATELAIN. 



l:G0T0 "A" 
10: "ALEA"fl=fl*99 
7:A=A-INT (A 
) 
20: RETURN 
30:"A"CLEAR : 
BEEP l: PAUSE 
** ME 
MORY »*" 
40: PAUSE "LE BU 
T BU JEU EST 
DE..." 



50: PAUSE "REPET 
ER UNE SUITE 

60: PAUSE "DE NO 

MBRES ..." 
70: PAUSE "LA PL 

US LONGUE PO 

SSIBLE." 
80: PAUSE " " 
90:PAUSE "MAINT 

ENANT.COMMEN 

CONS. . . " 



100: INPUT "SEMEN 

CE ?"!A 
1 10: A=A+I: GOSUB 

"ALEA":E=6 
120:C=1: INPUT "N 

IVEAU (1-8)? 

"iC 
130: IF C<10RC>9 

THEN 120 
140:"Q"G0SUB "AL 

EA":BEEP 1 
150:ACB)=INT (fl* 



10"C> 
160: FOR D=t.T0 B 
170:PAUSE A(D' 
180: NEXT B 
190: BEEP 1 
200: FOR B=6T0 B 
210: INPUT E 
220: IF EOACB) 

LET E=D:D=30 


230: NEXT D: IF D> 

250THEN "H" 
240:B=B+l:IF BU 

OOTHEN "0" 
250:EEEP 5: PRINT 

"BRAVO! UN S 

ANS FAUTES! ! 

260: END 

270: "W" BEEP 2: 

PRINT "PERDU 

! ! C"ETAIT:" 

;A(E> 
280: B=B-5: PRINT 

"VOTRE SCORE 

:"!B 
290: ENB 



3040 PRINI *ce progriw. iccepte 1c ulcul* 

1050 PRINT 'pour les espicei dont les tngl.s ' 

J060 PRINT "swit tqtux • 90 degr«s' 

1070 PRINT 'VOOS DEVREZ [NDIQUER ALTEPJUTIVEHENT* 

1080 PRINT Mi Utile des bonlures ' 

1090 PRINT "wrtlciles et horliooules' 

3100 PRINT 'li lere cote eUnt verttcele* 

3110 PRINT 

3120 PRINT 'POUR TERMINER LE TRACE ENTREZ ' 

312S PRINT 'A LA OEHANDE DE LONGUEUR * 

3127 PRINT ' 2 CAS SE PRESENTENT ALORS :' 

1110 PRINT ' -ou vous nH rejolnt le point de ' 

1140 PRINT ' depert et le surfece est celculee' 



31S0 PRINT ' -dens le Ml contrelre le demlere * 

3160 PRINT ' drolte trecee rejolnt le Ms geucne ' 

31Z0 PRINT' de t'ecren event le Cdlcul' 

3180 PRINI- 1 c 'est e ce stede le seul enyen de* 

3190 PRINT 'deftnlr un engle different de 90 degres)' 

3200 'PRINT 'NOTA: le rencontre del drottes' 

3210 'PRINT 'donne un resultet eleetolre ..." 

3211 PRINT 'Le utile du cedre. est de 6 unites ' 

3212 PRINT 'en verticil et de 18 en norlionUl ' 
321S NCW 

3220 NC'-INKETS:IF NCt'" GOTO 322u 

3Z30 RETURN ■ 



CHARGEUR 1000 BAUDS TBS 80 



Chargeur 1000 BAUDS 

Sur le TRS 80 mod.1, la vitesse de I'interface cassette 

depend entierement du logiciel; elle peut done etre 

considerablement augmentee sans modification du 

materiel. 

Des essais tres pousses ont permis d'atteindre 3200 

bauds. A 2700 bauds la fiabilite reste excellente. Rap- 

pelons que la vitesse "standard" n'est que de 500 

bauds. 

Le chargeur decrit ici se contente de la vitesse de 1000 

bauds.ee qui luipermetdefonctionnersur tousles TRS 

80mod.1,ycomprislesplusanciens,equipesdelatrop 

celebre modification XRX. 

II est utilisable avec tous les programmes "systeme" 

non proteges et en un seul morceau charge au-dessus 

de 4300H. 

Le chargement des cassettes generees seffectue 

comme un programme normal 

Bernard DUPIN. 



00120 i 
aeiro i 
00140 : 
raise ' 
raise i 



c H R R G £ i 







BBiea 


; ADRESSES 


M UTILISEE5 


BIDS 

00:7 

■set 

7C7E 

I-3SZ 




00200 
3321 B 
0.12.-0 
00230 
00240 


CLS 

D I SCAR 
RERDV 
VIDEO 
RWERR 


ECU 
LOU 
ECU 

EOU 

ECU 


1C3H 
33H 
ECCH 

3C3EH 
13ABH 


eata 

022 c 
02:* 
e. ::-': 

02EV 




0826B 

130 2 70 
00220 
00210 
33-33 
00710 


SELK7 
BLINK 
RDBVTE 
RDHDR 
WRBYTE 
URHDR 


EOU 

EQU 
EM 

EOLI 

rc?u 
sou 


212m 
22CH 

zssh 

:si.n 
264H 
2B7H 






h ■ n 


t C 


HARD 


EUR 


IH 




80350 




DRfl 


4200H 


42M 


n 


003 78 


mbup 


H | B 


BW 


i n : 


BB 


00390 


MH 


Dim 


'XXXXXX' 


(.207 

*2B9 
-:?£■ 

4 2'sr 


n 

E241 

BC 


00410 
BB 4 20 
00430 

5BA40 
00450 




DEFB 
DE. f b 

DfFW 

Dt [ 1- 
M FD 


7.CH 

1 

41E2H 

0E9H t EXECUTI 
BCH 


42bd 

a -p[ 
420F 


3C 
1142 


08470 
00413 




DEFB 
DEFB 
DEFN 


F INI -LOADER 
LOADfcE 


6211 

4213 

421E 

4 219 

Wl 

421C 


3EC9 

32E241 
CDBC42 
3E5A 
B3 

HP H 


0831B 
00520 
00530 
00540 
00550 
005E0 


LOADER 
LO 1 3 


LD 

LD 

CALL 
LO 

CP 
JR 


A. BC9H 
CA1E2H). A 
LRDBVT 

A. 5AH 

C 

NZ.LO10 


421 F' 

4::e 
4 222 
a 221 


2irara 
itoooe 


005 M 
00590 

00600 

006 IB 


LLEN 


EOU 
LD 
EOU 
LD 


•+1 

HL. •-! 

**1 

DE.«-« 



kzu annua 



422E 66 
422F 77 
4 2 JO 2B 

4231 35 

4232 20BC 
4234 CDBC42 
4237 CD2CB2 
4230 79 
423B 23 



00640 i LECTURE D' UN BLOC DE DONNEES A 1000 BAUDS 
006E0 RDBLDC CALL LRDBYT 



CALCUL DE LA SOMME 0€ CONTROLE 



00750 
00760 
00770 



00B30 
00840 
O0S50 

30E60 
00E70 



U23D C2Q0I3 08880 



00900 CHK5B 
00920 t TEST DE 



POP HL 



I DE CHARGEMENT 



4241 IB 

4242 70 

4243 B3 

4244 20DE 



00970 
00990 ; 



JR NZ.RDBLOC 

ARRET DE LA CASSETTE 

XOR A 

OUT (OFFHl.A 

SAUT A L'ADRES5E O'EXECUTION 



J OCTET DE DOWEES A 1000 BAUDS 



DEFB 3CH 

defb fin2-load2 
defu load: 



01210 LOAD! 
01220 LRDBVT 
01230 



4293 DBFF 


01280 RDB10 


IN 


4235 17 


01290 


RLfl 


4296 30FB 


01300 


JR 


429£ 0683 


01320 


LD 


429A 10FE 


01330 


Mm 


429C 0603 


01350 RDB28 


LD 


429E 3E04 


01370 


LD 


42A0 D3FF 


01380 


GUT 


42A2 E5 


01400 


PUSH 


42A3 DDEI 


01410 


POP 


42A5 DBFF 


01430 RD&3B 


IN 


42A7 17 


01440 


RLR 


42A8 00 


01450 


NOP 


42A9 DDSE03 


01480 


LD 


42AC 3812 


01470 


JR 


42AE 23 


01480 


IMC 


42AF 26 


01490 


DEL 


42E0 3DE5 


01500 


PUSH 


42B2 FDE1 


01510 


;■■-- 


42B4 5F 


01520 


LO 


42B5 10EE 


01530 


MM 


42B7 5E 


01540 


LO 


42B& 1813 


01550 


JR 


42BO E5 


01560 RDB40 


"Wl- 


42BB DDEI 


01570 


POP 


42BD D5 


01580 


pus" 


42BE FDE1 


01590 


POP 


42C0 F6O0 


01800 ROB50 


D" 


42C2 ODES 


01810 


PUSH 


42C4 FDE1 


01620 


POP 


42C6 5B 


01630 


LD 


42C7 10F1 


01640 


DJNZ 


42C9 37 


01850 


SCF 


42CA 00 


01680 


NOP 


42CB eo 


01670 


HOI 


42CC 5E 


01680 


_D 


42CD CB19 


Bll 9E ffl Bl - 


RR 


42CF 063A 


01710 


. D 


42D1 10FE 


01720 


DJNZ 


42D3 5E 


Bl ■■■..' 


. [ 


42D4 15 


bi rsa 


DEC 


42D5 20C5 


v-: :■-,.: 


JR 


42D7 01 


01780 


PGP 


42DS C9 


01790 


RE1 


42D9 00 


01810 


DBFS 


u2da ee 


01 820 LCriKS 


DEFB 


42DB 


01B40 FINLDR 


EOU 


42DB 


01650 FIN2 


EOU 


42DB 00 


01 360 


SEFB 


420C 78 


01880 


H 1 E 


42DD 1142 


01900 


BE F U 




01930 t P H D R A 


42DF CDC9B1 


01950 START 


C>, t -^ 


42E2 2I484& 


01970 


. a 


42E5 CD3E&-. 


■.:■■ I.:i: 


cnu 


42EB AF 


0.-000 READ 


KOH 


42E9 D3FF 


02010 


OUT 


42EB 216A44 


02030 


LD 


42EE CD3E44 


02040 


cnu 


42F1 214138 


02060 


LD 


42F4 CB4B 


02070 RIO 


BIT 


42F6 2BFC 


02080 


JR 


42F8 3EM 


02100 


i_D 


42FA CD1202 


02110 


BMJ 


42FD CD9602 


K 1 SB 


cnu 


4300 CD3502 


B21AB 


:.<3ll 


43B3 FE53 


B21S0 


CP 


4303 C22344 


02160 


Jp 


430B 0606 


B3 LM 


LD 


4300 210142 


02190 


. D 


438D CD3502 


02200 R20 


CALL 


4310 77 


02210 


LD 


4311 23 


02 21-0 


INC 


4312 10F3 


02230 


BJNZ 


4314 CD3502 


B225B 


CALL 


4S17 FE3C 


02280 


CP 


4319 C22344 


02270 


.IP 


431 C CD3502 


02290 


cnu 


431F 47 


32:00 


LD 


4320 CD3502 


02320 


CPU 


4323 4F 


02330 




4324 5F 


02340 


LO 


4325 CD3502 


02350 


CM L 


4328 57 


023EO 


LD 


4323 81 


02370 


ROD 


432A 4F 


02380 


LO 


432B ED531F42 


02390 


LD 



432F 213E45 
4332 CD3502 
4335 77 



433C CD3502 

ftSSP 63 

4 740 C2234A 

434? CD2C02 

4346 CD350: 

4349 FE7E 
4340 2B33 
434D FE3C 
134F C22344 

4353 CD35B2 

4355 47 

4356 CD3502 
4359 BB 

4350 C22C44 
435D 4F 
435E CD3502 



4361 60 
43E2 C22C44 
4T&S 81 
4368 4F 
4367 CD3502 
436A 77 
43EB 81 
iiTEC 4F 
4 TED 23 



02500 R40 
025 10 
02520 



02600 

02E20 

02E3O 

02640 

02650 

02680 

02670 

02680 

02690 

82 700 

02710 

02720 

02730 R50 

02740 

02750 

82780 

02770 



A. (0FFH> 
MC.RDB10 




43EE 


30B24B 


02780 




LB 


A, I40B2H> 


4371 


BC 


02790 




CP 




4373 


2007 


02800 




JR 


MZ. R60 


4374 


3ABI40 


02810 




LD 


A, <40BIH) 


4377 


6D 


02820 




CO 




(.37 EI 


CA3544 


02830 




JP 


Z.ERH 


I37B 


13 


02840 


REfl 


INC 


n 




10E9 


O2E50 




DJNJ 




437E 


1SBC 


02860 




JR 


R40 


43» 


113E45 


O2SS0 


R7B 


LD 


DE, BUFFER 


43E3 


B7 


02830 




DR 




4304 


ED52 


02900 




sec 


HL.DE 


43B6 


22 224 2 


02910 




LD 


CLLEN>.HL 


.'. IBS 


CD3502 


02930 




cnu 


RDBVTE 


t R3C 


BF 


02340 




LO 


Lifli 


4 TSD 


CD3502 


02950 




cnu 


RDBVTE 


. ■ 9B 


67 


02960 




LD 




4391 




02970 




DJ) 




4392 


2003 


O29E0 




JR 


NZ. RGO 


4394 


21CC06 


02990 




LD 


HL. READY 


4397 


224042 


03000 




LD 


■ LSTR>.HL 


4390 


RJ 


03020 




(OR 


a 


..."as. 


B3FF 


03038 




Our 


(0FFHI.A 


439D 


2IC444 


03050 




LO 


HL. WSGW 


43AB 


CD3E44 


03060 




cnu. 


MSD 


43A3 


21413B 


03080 




. C 


HL.3B41H 


43AE 


CB46 


03090 


H90 


BIT 


0. ( HL 1 


43AS 


MFC 


031M 




J 5 


Z.R90 



HOUT MEMOIHE 



16 K 



I T U R E 



COLCUL DE LA SOflHE DE CONTROLE 



IE D E D 



|0FFH».O 
HL.PtSGR 





t tnn 


210F42 


B3i ra 




430D 


063D 


I ■ : ".- 




., JU 


Rl 


B31SB 




t 9M 


86 


,--. BB 




4391 


:■?■ 


.•:. IB 




4381 


-i' 


B322B 




1 SB4 


77 


.•-. BB 




i SBS 


21BA42 


B32S* 




i hJ 


0651 


03260 




43BA 


AF 


B3271 


BVTCNT 


i.T.BP 


BE 


07-280 


SDhHE DE CONTROLE 


4IBC 


23 


03290 




43BH 


10FC 


B33M 




43BF 


77 


03310 


SOMME DE CONTROLE 






0337.0 


FIN DE SONDE 


.1 I B 


CD8702 


B ■ '-,- 


ADRESSE DE LANCEMENT 


43C3 


210042 


07370 




43CB 


0650 


83380 




i:3C2 




03390 




A JC9. 




B34H 


DUPLICATION 


43CA 


CD6402 


034 10 




■ 'CD 


10F9 


03420 




I JCF 


CD2C02 


03440 




4302 


218842 


03460 




t SOS 


0657 


03470 




a »7 


7E 


07480 




43D8 


23 


03490 




43D9 


CD6402 


03500 




43DC 


10F9 


03510 




43DE 


CD2C02 


03530 



ECRITURE DU CHARGEUR 
CALL WRHDR 



LD 


HL . UBUF 


^D 


8.FINI-HBUF.4 


LD 


0, CHL1 


[MC 




CM , 


WRBVTE 


DJNZ 


H2B 


cnu 


BLINK 


LD 


HL.L00D2-4 




B.FINLOR-LDfiD 


LD 




[NC 




CHLL 


WRBVTE 


DJNZ 


W23 



1 000 B0UD5 



43E1 210000 03578 

43E4 223C45 03580 

4JE7 2E13 07600 

43E9 OE0O 03610 <• 

43EB CDFE44 03620 



HL. NOME 
RDBYTE 
I ML t . A 

R2fl 

RDBVTE 

3CH 

NZ.ERS 

RDBVTE 
B.O 

RDBVTE 



03720 :ECRITURE D'UN BLOC 1 



iUR LA CASSETTE 



U IF D 


4E 


B374B 


BUBLOC 


LD 


C. < HL 1 


43FE 


CDFE44 


03750 




cm . 


BWPVTE 






■3 rn 


! COLCUL DE 


LA SOMME DE 


44B1 


E5 


83790 




PUSH 


HL 


4402 


213D45 


07800 




LD 


HL . CHKSUM 


UBS 


79 


03810 




LD 


A. C 


44DE 


BE, 


07E20 




ADD 


A. rHL> 


4407 


77 


03838 




LD 






26 


03640 




2E:: 




L4M 


sa 


07850 




KC 


IHLI 


4400 


2007 


87860 






NZ, BC. 


4401 




03870 




LD 


CO 


-....!;■ 


CDFE44 


B3SBB 




CM 1 


BWBYTE 


4., IB 


CD2C02 


03890 




C^LL 


BLINK 


4413 


El 


03900 


!■ [ :. 1 


POP 


HL 


4414 


23 


03920 




INC 


HL 


4415 


IB 


83930 




DEC 


DE 


441 E 


7fl 


83940 




LD 


n. d 


4417 




;•'■:•: il 




DR 


E 


441B 


_vlF- 


37^3 




JR 


NZ.BWBLQC 


4410 


21EE44 


■ ■ wa 




. D 


HL.P1SG0K 


44ID 


CD3E44 


07990 




CALL 


"SG 


442B 


C7EE42 


04010 




JP 


m ad 


4423 


218444 


04040 


t :»v 


LD 


ML . MSGERS 


U42£ 


CD3E44 


0U050 




cnu 


hSG 


4429 


C3ES42 


04080 




jp 


READ 


442C 


219844 


04080 


• RC 


LD 


HL . MSGERC 


4421 


CD7E44 


04090 




■:.-... 


HSG 


""'- 


C3EE42 


04100 




J» 


:>! . I, 


4435 


2IB5U4 


04 1 20 


>• 


D 


HL.KSOERM 


4438 


CD3E4I. 


B41 1 




1~. .. 


nso 


4438 


c:;s42 


0JiU,0 




JP 


BEfll 


-u?E 


7E 


0b 1 60 


NSC 


_;, 


A. .ML' 


4u3F 




0^170 




INC 




4440 


:d::o0 


0(4 ISO 






DISCAR 



suite page 10 



ALUNISSAGE 



Configuration : 

PROGRAMME 1 : calculates HP41 CVou HP41 Cavec 

1 module memoire supplemental. Imprimante HP 

82143 ou HP 82162 avec interface HPIL. 

PROGRAMME 2 : calculates HP 41 CV ou HP 41 C 

standard. 

Ce programme intitule "CHUTE" vous permet d'essayer 
de poser en douceur un LEM sur le sol chaotique de 
notre satellite. L'utilisation judicieuse du carburant dis- 
ponible est determinate pour eviter I'ecrasement. Un 
bon atterrissage. pardon ALUNISSAGE, est plutot diffi- 
cile. Bon courage! 

Mani pul ations preliminaires : 

SIZE 01 MODE USER ; chargement du programme : si 
vous disposezd'une imprimante : programme 1 ; si vous 
n'en disposez pas encore : programme 2 

Bernard RAGOT 




PROGRnmiE ! 



8HLBL -CHUTE" 
924LBL E 

93 CLD 

94 ADV 

95 BJV 

96 SF 12 

97 ■ BLUHlSSflGE- 

88 AVIEH 

89 BEEP 

18 CF 12 

11 BJV 

12 ADV 

13 PSE 

14 CLRG 

15 CLST 

16 CF 28 

17 FIX 2 
18»LBL. 81 

19 -BLTIIUBE ' 

28 BCfi 

21 5 

22 SKPCHR 

23 CF 21 

24 AVI EH 

25 TONE 5 

26 STOP 
2?»L8L fi 
'28 IHT 

29 STO 81 
38 1888 

31 X<=Y? 

32 GTO 81 

33 RCL 81 

34 288 

35 X>Y? 

36 GTO 91 

37 RCL 81 

38 VIE. 81 

39 SF 21 
48 BCX 

41 PRBUF 

42 BDV 

43 PSE 
44»LBL 62 

45 "VITESSE V 

46 ACfl 

47 6 

48 SKPCHR 

49 CF 2! 
58 AVI EH 

51 TONE 5 

52 STOP 
53«LBL 8 

54 IHT 

55 S^i 82 

56 188 

57 X<=Y? 

58 GTO 92 

59 RCL 92 
68 19 

61 X>Y? 

62 GTO 82 

63 RCL 62 

64 CHS 

65 STO 82 

66 VIEW 82 

67 SF 21 



68 PCX 

69 PRBUF 
78 ADV 
71 PSE 
?2»LBL 93 

73 -CAR6URAHT 

74 ACA 

75 6 

76 SKPCHR 

77 CF 21 

78 AVIEH 

79 TONE 5 
88 STOP 
81»LBL C 

82 IHT 

83 STO 83 

84 188 

85 X<=V 

86 GTO 83 

87 RCL 83 

88 28 

89 X>V? 
99 GTO 93 

91 RCL 93 

92 VIEW 93 

93 SF 21 

94 BCX 

95 PRBLIf 

96 AW 

97 PSE 

98 ADV 

99 SF 12 

188 " * DEPART , 

181 BVIEli 

182 CF 12 

183 ADV 

184 ADV 

185 STOP 
186»LBL D 
19? BEEP 
188»LBL 84 

189 5 

118 SKPCHR 

111 "ALT = ■ 

112 ACA 

113 RCL 81 

114 XEO 68 

115 CF 21 

116 ARCL 8! 

117 flVIEH 

118 SF 21 

119 TOHE 5 
128 CLB 

121 5 

122 SKPCHR 

123 -VIT = ■ 

124 ACA 

125 RCL 82 

126 XEO 88 

127 CF 21 

128 ARCL 82 

129 BVIEH 
138 SF 21 

131 TOHE 5 

132 CLA 

133 5 

134 SKPCHR 

135 -CAR = " 

136 ACA 

137 RCL 83 



138 XEO 98 

139 CF 21 
149 ARCL 83 

141 AVIEH 

142 SF 21 

143 TOHE 5 

144 PSE 

145 CLA 

146 ADV 

147 CF 21 

148 FIX 8 

149 3 

158 VIEW X 

151 PSE 

152 2 

153 VIEW X 

154 PSE 

155 1 

156 VIEW X 

157 PSE 

158 SF 21 

159 5 

168 SKPCHR 

161 SF 12 

162 "FEU ?■ 

163 OCA 

164 CF 12 

165 CF 2! 

166 BVIEH 

167 8 
188 PSE 

169 BEEP 

178 CLA 

171 BBS 

172 IHT 

173 SF 21 

174 ACX 

175 PRBUF 

176 ADV 

177 FIX 2 
178»LBL 85 

179 RCL 83 
188 XOY 

181 X>Y? 

182 GTO 66 

183 ST- 83 

184 2 

185 * 

186 5 

187 - 

188 STO 94 
139 2 

198 .' 

19! RCL 8! 

192 ♦ 

193 RCL 62 
!94 t 

195 RCL 84 

196 ST* 82 

197 RDH 

198 STO 81 

199 IHT 
299 X>0? 
291 GTO 84 
282 FIX 8 
293 RCL 92 
284 GTO 67 
285»LBL 86 

286 SF 21 

287 BDV 



SECHE- 



298 BJV 

299 -PBHHE 
219 SF 12 

211 flVIEH 

212 CF 12 

213 PSE 

214 PSE 

215 RCL 93 

216 2,5 

217 - 

218 ST* 91 

219 2 
229 * 

221 STt 82 

222 RCL 91 

223 19 

224 • 

225 RCL 92 

226 Xt2 

227 + 

228 SORT 

229 CHS 
238»L8L 87 
23! STO 85 

232 SF 21 

233 ADV 

234 BDV 

235 X=8? 

236 " IMPECCABLE" 

237 X<8' 

238 " ECRASENEHT- 

239 SF 12 
248 flVIEH 

241 CF 12 

242 PSE 

243 PSE 

244 ADV 

245 W> 

246 STOP 

247 -VIT = ■ 

248 ACA 

249 12 
258 SKPCHR 

251 CF 21 

252 ARCL 85 

253 BVIEH 

254 SF 21 

255 FIX 2 
258 RCL 65 

257 ACX 

258 PRBUF 

259 ADV 
268 ADV 

261 ADV 

262 ADV 

263 ADV 

264 STOP 
265»LBL 65 
266 STO 95 
26? ! 

268 SKPCHR 

269 18 
278 PCL 95 

271 ABS 

272 X^Y? 

273 XEO 69 

274 166 

275 RCL 65 

276 ABS 

27 7 X<Y> 



278 XEO 89 

279 RCL 95 
289 ACX 

281 PRBUf 

282 RTN 
2834LBL 89 

284 1 

285 SKPCHR 

286 RTH 

287 EHD 



PROGRMME 2 



9!*LBL -CHUTE" 
92«LBL E 
83 CLD 

94 ■ ALUHlSSflCE" 

95 BVIEH 

96 BEEP 

87 PSF 

88 CLRG 

89 CLST 
18 CF 28 
11 FIX 2 
12»LBL 81 

13 -ALTITUDE ' 

14 BVIEH 

15 TOHE 5 

16 STOP 
17»LEL A 

18 IHT 

19 STO 81 
28 1898 

21 X<=Y? 

22 GTO 81 

23 RCL 61 

24 288 

25 X>Y? 

26 GTO 81 

27 RCL 81 

28 VIEH 61 

29 PSE 
39HBL 82 

3! -VITESSE ' 

32 BVIEH 

33 TOHE 5 



34 STOP 
35«LBL E 

36 INT 

37 STO 92 

38 189 

39 X<=Y? 
46 GTO 92 

41 RCL 92 

42 18 

43 X>V 

44 GTO 82 

45 RCl 82 

46 CHS 

47 STO 82 

48 VIEH 82 

49 PSE 
56»L8l 83 

51 -CARBURANT ?' 

52 AVI EH 

53 TOHE 5 

54 STOP 
55*181 C 

56 INT 

57 STO 83 

58 188 

59 X<=V 
68 GTO 93 

61 RCL 83 

62 29 

63 X>Y? 

64 GTO 83 

65 RCL 83 
86 VIEH 83 

67 PSE 

68 - « DEPART *■ 

69 AVI EH 



78 STOP 
71»LBL D 
72 BEEP 
73«LBL 81 

74 "ALT = ■ 

75 ARCL 6! 

76 flVIEH 

77 TONE 5 

78 PSE 

79 CLA 

89 -VIT = ■ 

81 ARCL 82 

82 flVIEH 

83 TOHE 5 

84 PSE 

85 CLA 

86 "CAR = " 

87 ARCL 83 

88 flVIEH 
39 TONE 5 
96 PSE 

91 cm 

92 FIX 8 

93 3 

94 VIEH f 

95 PSE 

96 ' 

97 VIEH X 

98 PSE 

99 1 

198 VIEH X 

191 PSE 

192 -FEU ?- 

193 BVIEH 

194 6 

195 PSE 



63 



196 BEEP 
19? CLA 
198 ABS 
189 IHT 
118 FIX 2 

11HLBL 95 

112 C 'CL ir, 

113 XOY 

114 X>Y? 

115 GTO 96 

116 ST 

117 2 

118 * 

119 5 
129 - 

121 STO 94 

122 2 

123 / 

124 RCL 91 

125 + 

126 RCL 82 

127 * 

128 RCL 84 

129 ST* 82 
139 RDH 

131 STO 9! 

132 INT 

133 X>9? 

134 GTO 94 

135 FIX 9 

136 RCL 62 

137 GTO 97 
I38»LBL 96 
139 -PflHHE 
148 flVIEH 



141 PSE 

142 PSE 

143 RCL 93 

144 2,5 

145 - 

146 ST* 91 

147 2 

148 « 

149 ST* 82 
159 RCL 91 

151 18 

152 « 

153 RCL 82 

154 Xt2 

155 * 

156 SORT 

157 CHS 

158*LBl 67 
159 STO 85 
168 X=9? 
16! - IMPECCABLE- 

162 X<8' 

163 ■ ECRASEHENT- 

164 AVIEH 

165 PSE 

166 PSE 

167 W 

168 STOP 
189 "VIT = • 
179 ARCL 85 

171 AVIEH 

172 FIX 2 

173 STOP 



SECHE" 



174 END 



Mode d'em ploi : 

* Lancement du programme [E] 

* Choix de la situation 

- Altitude en metres? min. 200 - max. 999 [A] 

- Vitesse en metres/seconde? min. 10 - jnax. 99[B] 

- Carburant en litres ? min. 20 - max. 99 [Cj 

Le programme controle automatiquement le respect 
des limites indiquees ci-dessus. 

* Depart |D] 

* Deroulement d'une partie : 

Le programme affiche successivement les parametres 
de la trajectoire mis a jour en temps reel par I'ordinateur 
de bord : 

ALT :AAA,AA 

VIT :VVV,VV 

CAR : CC.CC 

La vitesse est negative lorsque I'engin descend vers le 
sol ; elle est positive lorsque votre capsule s'eloigne de 
la surface lunaire. Apres cet affichage des parametres 
de vol, le compte a rebours commence : 3, 2, 1, FEU ?... 
Pendant une seconde, vous avez la possibility d'allu- 
mer les retrof usees. Pour cela.entrez le nombre corres- 
pondent a la quantite de carburant que vous voulez 
consommer. Mais des que le BEEP retentit, c'est trap 
tard!!! La partie continue ainsi - affichage des para- 
metres, compte a rebours - jusqu'a I'alunissage en 
douceur ou a I'ecrasement. 

* Fin de partie : 

Vous devez relancer le programme par la touche de 
fonction[@ 

EXEMPLE 



ALT 
VIT 

in; 



-35,96 
67,88 



RLT -- 
VIT = 

CAP = 



18.58 
-4,96 
39,88 



ALT = 


154,56 


ALT = 


17,86 


VIT ■ 


-36,86 


VIT = 


1.88 


CAR = 


65,86 


CAR = 


34,88 


FEU 


~> 1, 


F E LI 


? 8, 


ALT = 


117,66 


ALT = 


15,58 


VJT = 


-39,66 


VIT = 


-4.88 


CAF = 


64,66 


CAR = 


34,88 


FEU 


? 6' 


FEU 


? 1, 


ALT ■ 


75,56 


ALT = 


18,66 


VIT = 


-44.88 


VIT = 


-7,88 


COR = 


64.68 


CAP = 


33,88 


FEU 


? 8, 


FEU 


? 2, 


ALT = 
VIT = 
CAR = 


37,66 
-33,66 
56,88 


ALT = 
VIT = 


2,58 
-3,88 



flLUNISSBGE 

ALTITUDE ' 253- 6? 

VITESSE ? -37,85 



Ytf 



*\ 



FEU ? 17. 



FEU ? 6. 

ECRRSEMENT 

VIT = -t.M 



CRRBURflNT 



73 , fiv 



* DEPART * 



ALT = 2%-M 

"IT = -37, 88 

CAR = 73 .88 

FEU ? 5, 



COMMENTAIRES : 

Latailiedece programme resulteprincipalementde la 

volonte de bonne presentation des differentes phases 

de la partie. La presence d'un nombre important de 

controles allonge egalement la liste des instructions 

mais ameliore I'interet du jeu. 

R01 Altitude 

R02 Vttesse 

R03 Carburant 
PLT = 223»5fl R04 utilise 

VIT = -72. fig R05 Utilise 

... ,- .. L01 Saisie altitude 

Lh» = bti,W L02 satsie vitesse 

L03 Saisie carburant 
j L04 Affichage parametres et compte a rebours 

L05 Mise a jour des parametres 

L06 Panne de carburant 

L07 Fin de partie 

LOS Sous-programme de formatage decimal 

L09 Sous-programme de formatage decimal 



FEU 



INPUT 
FORMATE 



Le Basic de I'Apple est soupleet rapide, mais, pour certaines instruc- 
tions, assez limite. Par exemple, INPUT pose quelques problemes: 

- impossibilite de controle du nombre de caracteres a entrer, 

- impossibilite de controle du type de reponse, 

- si la 1" louche frappee est '<-', c'est une catastrophe, 

- quand on appuie sur "return", tout ie reste de la ligne disparait, 

- les caracteres de controles sont acceptes. 

- les messages "reenter" et autres perturbent le dessin d'ecran. 
Bref, vous avez devine. le programme en langage machine presente 
ici permet de pallier certains de ces inconvenients. 

II utilise le "&" du Basic pour creer une nouvelle instruction, qui s'ecrit 
comme INPUT, mais avec. en plus, un format. 

EXEMPLE ; & INPUT (1 OX. B) ; 'NOM ' ; A $ 

Le format est entre entre parentheses et suivi d'un ';'. 

Le nombre 10 represente le nombre de caracteres maximum. 

Le X represente le type de caractere. 

Le B indique que si le caractere tape au clavier n'est pas du type 

demande, il faut emettre un BIP 

Le nombre de caracteres est compris entre 1 et 248. 

Le type peut etre: 

X ; caracteres quelconques 

A: alphabetiques ou blanc 

E : chiffres, +, - : on obtient un entier 

R : chiffres, +, - : on obtient un decimal 

Un caractere de controle peut etre present : 

B: explique plus haut. 

5 : valide la louche ESC. Si S apparait dans le format, une pression 

sur ESC provoquera un arret de la saisie. et le controle sera rendu au 

programme, la variable n'etant pas modifiee 

C : valide la touche controle C. Si C apparait dans le format, controle 

C est pris en compte et provoque un break. 

Bien entendu, ces 3 parametres sont facultatifs. S'ils n'apparaissent 

pas, les touches associees sont ignorees lors de la saisie. 

Remarque : pour savoir si la saisie s'est terminee normalement (avec 

RETURN) ouanormalement (avec ESC), il suffit de "faire"un PEEK de 

I'adresse $DF (223 decimal) Si PEEK (223) - 0, c'est RETURN, sinon 

ESC. 

Leserreurs: 

ERR - 01 : longueur de zone incorrecte 

ERR - 02: type de caractere inconnu. 

ERR - 03 : 2 caracteres de contrdle identiques. 

ERR — 04 : caractere de controle inconnu. 

ERR - Oa: melange de types. Ex: 2X et A. 



Le programme est implante a partir de I'adresse $9380. sa longueur 
est $264 soit 612 en decimal. 

attention : il faut charger et executer le programme avant toute 
utilisation. Ourant 1'initialisation, il efface tout programme Basic en 
memoire. 

Pierric GLAJEAN 




APPLE II 



REM QUELQUES EXEMPLES. . . 

REH > FORME simple 

I INPUT <3Xi;At 

RET) > AVEC HESSAK 

I INPUT <2E)!"JOUR ?|"ld 

REH I AVEC BIP EN CAS D'E 

RREUR 

3 1 INPUT (3R.BH-TA1LLE ?l"f| 
REN > POUR VAL1DCR ESCAPE 

t INPUT <15A,SU"VILLE ?j";V 

• 

REH > ET POUR CONTROLE C 

r. INPUT ^OX.CIfADRESSEi-iA 



« ; ON PEUT nELANGER ! 

INPUT I3X,S,B,C)(A4 

INPUT (SI,B,C,S);AI 

INPUT <5I,B,S)IA» 

INPUT <5X,C,S>lAS 



HONE 

VTAB 10: HTAB 23i PRINT 

NON 1." 

VTAB lOt HTAB 3 

l INPUT UOXIl' 



„\ 



303 REM ESC OU RETURN ' 



320 I INPUT (3R,S)I-N0nBRE:-tA 
330 IF PEEK (2231 * THEN PRINT 

: PRINT At BOTO 320 
332 PRINT 
535 PRINT -ESC- 



CARAC TERE 
1 CARACTERE 
1 VARIABLE 

ENTIER 

REEL 

CHAINS 
I CARAC 



0800 

., g .,,, 
MOO 



;CHARG£T: LIT 

iCHARGOTiRELI! 
;REEVAR ! CREER 
if-: i rjHH :l H4 
; RECFLP tLlfiE 
tRECTEXTiLIRE 
ICOUT [ECR1T 
1AFFICHE:ECRIR£ CHAINE 
iECRCH :ECRIRE CHAINE 
1ECRRET :SAU1 DE L16NE 
tPRIGNE:ECRll 'IN ■' 
iVFvFARD: 7ERIFIE ' (' 
IVFVPARGiVERIFIE '»' 
IVFWIRGiVERlFIE "," 
1VFYCAR iVEPIFIE CARAL lA 
iBfttt iROltllHEST** 

1 "DRESSES UTILES Oil 



1 1» ic 

i m .. . 



0023 

M09. 

■ ■,.,-:i 

0092 

...v-I, 
009E 

■Mir 



. £, .. , 

.■i8i>i' 
ijgiKi 
OODA 
.-.■.[.;.. 

MM 

.,,[,,. 
«DI 
rODf 

OOEO 
00E0 
■OEI 

■ c; 
moe: 
00E4 

ogoo 

0200 

L'.'t, 
DSf.( 
OAFB 
,,.-.[■; 
..»H ■ 
DECO 
BFej 
DEM 
DEBS 
:■[ w 

DhML 

SCSI 
DB30 

oea 

EC4A 

OB :- 

D42A 
EQOtJ 
0800 
FF20 

■ bd: 

■ i-Li 
FC22 
FDOC 
03F6 
OSF1 



■ ■■ .84 

OOBB 

.,,, S [. 

, iBrV. 

nao 

9380 

9380 



9380 

9300 A9 BB 

93B2 30 Ft> 03 

936S A9 93 

9387 ID Fl 03 

93BA A9 BO 
93BC 85 73 
93BE M 9; 
9390 83 74 
9392 20 FB DA 
9395 20 FB DA 
9398 A9 A2 
9 39 A AO 93 
939C 20 3A 00 
939F 4C 00 EO 
93A2 A6 A6 AO 
93A5 C9 CE DO 
93A8 05 04 AO 
93AB A6 A6 
93AD 87 9D 
93AF AD AD AD 
93B2 AD AD AD 
93B5 AD AD AD 
93B8 AD AD 
93BA .«> 



93BB 

93BB 

93BB A9 84 

93BD 20 CO DE 

93C0 20 BB DE 

93C3 20 OC OA 

93C6 A6 51 

93C8 DO 17 

93CA A6 50 

"3CC FO 13 

93CE EO F9 

9300 BO OF 

93D2 ft:.- OB 

93D4 

9304 

93D4 

93D4 A2 .13 

93D6 DD DO « 

93D9 FO 12 

93DB CA 

93DC 10 F8 

930E 



93DE 

v-[,| 



o 



9TE4 :■> K FD 



»3EA 4C C9 DE 




22 t MONITEU^ 


93F5 
93F7 
■ 3F J 


BS 


E4 


.4 iPRERR 


iECRII 'ERR' 






25 iPRA 


:ECRIT (Al 


'■f 






24 ;bip 


:EMEI 1 BIP 


■■I ■ 






27 ;LI6NE 


:CALCULE VATB 


*-.r 






2B ;RDfEY 


:L1I LE CLAVIER 


93F7 


:■■ 


[■l ..... 


29 I 




93FA C9 


29 


30 lADRESSES P-0 BVBTEHE 


93FC 


FO 


IC 






-■>■[ 


20 


BE Li 


'.■ I.H 


EP? «24 


9401 


A2 


03 


33 CM 


EP2 *25 


M03 


CA 




7.4 UNDM TH 


El ; 121 


9404 


30 


OC 


55 UCIDBTH 


EF-; (23 


9406 


DD El 95 


M ADSAU1 


EPi »90 


9409 


DO 


FB 


37 ADSAUT1 


EP7 *91 


940B F6 E2 


18 ADSAUT^ 


EPI *92 


940D 


P 1 E8 


39 DESLI 


EP7 I9D 


940F A2 


'■■: 


M L>E5L.' 


LP. f'E 


9411 


-'l 




41 DESC5 


EP1 19F 


9412 


- 


04 


42 IVPEVAR 


EPZ til 


9414 


::: 




43 PNTR1 


KPl *AB 


9413 


A2 


05 


44 HINEM 


EM 073 


9417 


■i. 


ET 93 


45 NUHL IGNE 
Ab t 


ep: «5o 


941A 
HI A 






4" lADRESSES P 1 


941 A 






48 : 




94IA 






49 TrPECAR 


Ef7 *DA 


MIA 


... 


iH - 


50 LONGUEUF. 


Lfl *DB 


941D 


A9 


3B 


51 VTAB 


EPJ IDC 


•IF 




CO DE 


5J HI All 


EPZ »D0 


9422 


C9 


22 


53 F0IN1EUR 


EPZ IDE 


9424 


DO 


IE 


54 ESC 


EPI IOF 


M i ■:■■ 


20 


;■] DE 


55 POINT 


EPZ IEO 


9429 




ID DE 


54 TEI* 


ef; *E0 


I ■: 2C 


." 


B7 00 


5.' CtBLC 


EPZ IE 1 


94 2F 


M 


3B 


58 ETAT 


EPZ «E2 


9431 


20 


i ■■■ : E 


59 ETATI 


EP; »E3 








oO ETAT? 
cl i 


EPZ *E4 


9434 






42 SUFFER 


EQU KM 


... ■■; 






63 ALPHA 


run il i o 


■-; :-i 




L "■ Df 


64 COUT 


EOU kBBS 


9437 


BS BS 


65 ECRREI 


tl.'IJ IDAfB 


9439 


-■■■ 


EU 


a;. CHARBE1 


EOU tBI 


94 3B 


24 


11 


6? CHARGOf 


[I'll IL ■ 


943D 


■■. . 


06 


68 VFVCAR 


EOU MECO 


943F 


A5 


[.,■. 


-. RE JAR 


EOU *DFE5 


9441 


E9 


"2 


70 VFYPARD 


EOU IDEhEi 


-1.1- 


[,., 


[" 


71 VFVPARG 


EQU tDEBS 


9445 






72 VFTVIRG 


EOU *DEBE 


9445 






73 RECNUM 


EQU IDAOC 


9445 






74 RECTEXT 


EOU IDE81 


.4-1' 






75 AFFICHE 


EOU IDB5D 


9445 


A2 


0" 


76 BREAK 


EQU ID865 


. .1 .1 ■ 


A... 


00 


77 RECFLP 


EOU IEC4A 


9449 


A5 


E2 


7B ECRCH 


EOU *DB3A 


HME 


30 


02 


79 PRLIGNE 


EOU *042A 


944D 




9D 


80 BASIC 


F 1 'L.I (i .i.im 


■4.11 


A! 


E3 


81 ; 




9451 


•■■• 


02 


82 PRERR 


EOU (FF^O 


9453 




65 


83 PRA 


EOU IFDD5 


94S5 86 


DF 


84 BIP 


EOU 1F8DI; 


9457 


H 


El 


85 LIGNE 


EQU IFC22 


9459 






J^ ROKEV 


l.JII IFD'C 


. «s ■ 






87 AhPERI 


EQU I5F6 


9459 






38 AMPER2 
89 ; 


EOU »3F7 


■■ .!','■ 

9459 






90 ; CdNSTANTES 


9459 


AS 




91 ! 




MSB 


80 


|.|. 


92 COD INPUT 


EPZ «84 


MSB 


A5 


.: 


93 FLECHEO 


EPZ »95 


MSI 


E 


DC 


94 FLECHES 


EPZ 188 


9461 


AS 


21 


95 RET 


EM *BD 


M63 


83 




96 : 




9464 


a 


DD 


93 


..II, V. :if. 


9466 


n 


E'-> 


« 


OBJ ISO.. 


■ UE 


AS DB 


99 i 




4-„ 


IS 




.«• ; INITIALISE i. H1MEN 


946B 


69 


01 


n iPUIS E1ET MESSAGE 


946D 38 




■/ : 




946E 


E , 


E i 


'5 INI 1 


LOA IENTREE 


9470 


90 


1' 


il 


ST A AMPEfil 


M72 


AO 


00 


H 


LUA 'ENTREE 


9474 


:-■■ 


En 


06 


STh AMPER2 


9476 


,-r, 


DC 


07 


LDA flNIT 


9478 E8 




M 


ST A HI MEM 


9479 E6 


EO 


■'. 


LI- 1MI 


94 7B C5 


21 


10 


STA H1MEM.1 


9470 90 


04 


11 


JSR ECRREI 


94 7F 


L'J 


21 


\: 


JSR ECRRET 


F48I 


1' 


F5 


13 


LDA IMESS 


M83 


E4 


23 




LD< MESS 


M8S 


90 


07 


15 


JSR ECRCH 


M8 ' 


A3 


DC 


16 


JMP BASIC 


,,|w:. 


38 




17 MESS 


ASC -ti. INPUT M 


- 948A 


L- 


EO 






940C 


i^ 


DC 






94BE 


AS 


DC 






9490 85 


25 


ia 


HEX 678D 


9492 


A9 


FF 


19 










ij<Va 










9496 










9496 






20 


HEX 00 


9496 










M96 


2' 


BC 95 


22 1 ANALYSE 


OU FORMAT 


M99 


20 


A3 95 


23 1 INPUT, ' 


' ET LONGUEUR 


M9t 


A9 00 


24 1 




949E 


85 


[iF 


25 ENTREE 


LOA #COD INPUT 


94A0 






27 
28 
29 


JSR VFVCAR 

JSR VFVPARD 
)Sfi RECNUM 
LDX NUNLIGNE'l 


94A0 

9400 
MAO 






3.1 


BNE ERRI 


94A0 


A5 


DE 


31 


LDX NUHLIGNE 


94A2 


li" 




32 


BEQ ERRI 


94A3 
94AS 


65 


DD 

(IL 


33 


CPI #249 


94A7 


a 




34 


ECS ERRI 


94A9 


90 


05 


35 

36 I 


ST I LONGUEUR 


94AB E5 
94AD E8 


21 


37 IVERIFIE 


TVPE DE ZONE 


94AE 


00 


F7 


38 1 




94PO B5 




39 


LDX 13 


94B2 


B6 


25 


4u COMPI 
41 

43 


CMP CAR.) 

BEO TROUVE 

DEI 

BPL COMPI 


94B4 
94B7 
94B7 
94B7 
MB 




22 FC 


45 ;ROUTINE 


D ' EfiREUfi 


94B7 
94B7 


s 


OC FD 


47 e*r: 


LD< K 


94BA 


C9 


88 


48 


It I ^C 


94EC 


FO 


58 


49 ERRI 


LDX 41 


94EC 


C9 95 


5.. 6ESTEJW 


T1A 


MGO 


K 


5D 


51 


JSR PRa 


94C. 


C9 


"1 


5. 


JI1F PftLIStC 


94C4 


F 




5" tPT-i.flT 


JMP I0GC.9 


94Co C5 


DF 






94C3 




26 


m i m i'.t 


PE It ZONE El 


94Ci- £5 E! 


56 UNIT l.< 


I5E El-T DEi 


94CC F> 


;; 


'■■ IChRmI rERES 


94CE 






'•■ 1 




"4lE 






5« TFOU'.t 


= T. T.PECAR 


., . 









STA ETAT2 


MC E 


C9 


AO 






HDO 


K E5 


■SI •>*, 


FIN DE FORMAT 


MDI 


29 


7F 


(SINON 


.-, PUIS 'S\ 


94D4 


A8 




ir, on 


'B'. 


MDS 


A5 


DF 






Ml - 


C5 


OB 


ENCORE 


JSR CHARGE! 


MOT 


BO 


DC 




CMF |*l' 


940B 


A5 






BEO EXECUTE 


>4DC 


OA 






JSR VFYVIRJS 


94DE 








LDX «3 


94DF 


BD 


08 ■'■ 


crw i 


DEX 


94E2 85 <M 




BMI ERR4 


94E4 


BD 


U 93 




LMP LARCTRL.X 


ME7 


Era 






BNE iTPLl 


94E9 


98 






INC ETAT.X 


■■it.. 


:■' 


90 00 




BEO ENCORE 


HHED 


« 


AO 94 


FFc- 


LDX #3 

HEX 2C 


94F" 
94F0 


oO 




E8R4 


LDX *4 
HEX 2C 


94FI 

MF 1 






ERRS 


LDX iS 


94FI 


..■-■ 


03 




JMP GESTERR 


94F3 


« 


63 D8 






14F6 A5 


DG 


1FIN FORMAT, 't' ATTENOU 


94F8 FO 


BD 


iSI TEXTE, L - ECRIRE 


94FA 


a 


Df 






94FC 


K 


AO 94 


EXECUTE 


JSR CHARGE! 


94FF 


u 


DE 




LDA •'!' 


9501 


E4 


DB 




JSR VFVCAR 


■55": 


BO 


B2 




CMP #'-' 


;-,■ o 


E6 


DE 




BNE SUITE 




[,.. 


97 




JSR RECTEXT 


:«,..9 








JSR AFFICHE 


9509 








JSR CHARCOT 


ra 19 








LDA #'!* 


TB09 








JSR VFVCAR 


ism 










9509 


A6 


DE 


1RECUPERE LA VARIABLE 


-J5..F. 


■■-; 


BE 


IET VERI 


FIE LES TYPES 


9S0D 
9S0F 


A9 


08 
AO 


SUITE 


JSR RECVAR 


9511 


.'I ' ! '.' ■* 




5TQ *B5 


■ '.:■! 


20 


A3 K 




STV «86 


951 ■' 


A9 






E.H r,FEv..f- 


1919 


BS 


OF 




BMI RAS 


95IB 


24 


1 i 




LDA T»PECAR 


HID 

: ";1F 


I... 


12 




BtS ERR5 


JS 1 F 
951F 






IPfllSE EN COMPTE DCS 


au 






iCARACIERES SPEClAUX 


95IF 


8A 








9520 


.-. 




RAS 


:■■ ■ 


9522 


.«" 


02 




LDV 40 


-■' .-i 


e^ 


AB 




1 Dh FT..7 




-■.: 


AC 




BMI RAS1 


9S28 


.'.' 


D9 E3 




LDX l«9B 


'*-.2t' 


2" 


25 E4 


FM31 


LOA ETATtI 
BMI RAS2 
LDV 4183 


=52£ 
9531 
9531 


4C 


-8 DA 


!■,.'■-. 


STX ESC 
STY CTRLC 


9331 
H31 










-r:i 


A3 


88 


JCALCULE 


ET 5AUVE LA 


9533 


48 




IVOLEUR 


DE VTAB. (IL 


9334 


-' 


89 


tPEUT y 


AVOIR SCRQLLi 


: -' 56 


48 








'■:,::■ 




■ i 




LDA CH 


9539 


BS 


bi.' 




STA UTAH 


953B 


A9 






LDA CV 


'?53B B5 B9 




STA VTAB 


95 3F 




Bl 00 




LDA UNDUTH 


9542 




4,. Li 




SEC 


«43 








SBC HTAB 


.= as 








STA TEMP 


Q4S 








LDA LONGUEUR 


■M 1 , 


.,, 


27 EB 




ADC tl 


9548 


U 






SEC 


9549 


35 


B9 




SBC TEMP 


954B 


68 






BCC 0K2 


954C 85 


B8 




LOY tO 


954E 


60 






STV TEMP 


• '..il 








LDX VTAB 


954F 






.:..i : 


INX 

INC TEMP 
CMP UNDUTH 
BCC HI 


■'■li 
954F 
954F 

9S4F 








SBC UNDUTH 


954F 




C9 93 




BPL CALI 




90 


15 


m i 


CPI WNDBTM 


■'■•,-! 


C9 


JE 




BCC t>2 


9554 


DO 


59 




LDA VTAB 


9550 


A6 


EO 




SEC 


999A 


E8 






SBC TEMP 


955B 


F'-' 


05 




STA VTAB 


■'■.■.[. 


CA 




Of 2 


LDA VTAB 


955E 


£4 


DE 




STA CV 


95W i 


DO 






LDA »«FF 


9562 


A6 


DF 




STA POINT 


9564 


86 EO 






9566 


4C 


99 95 


INETTOIE 


LE BUFFER E! 


1561 


...'.. 


DE 


UNITIALISE LE CURSEUR 


956S 


a 


EO 


t 




956D 


D.. 


2A 




JSR NET 


956F 




FF 




JSR EMISSION 


9571 


86 


EO 




LDA K> 


9573 


DO 






STA POINTEUR 


9575 


24 


E4 






9577 


30 


03 


1CALCUU 


LA POSH ION SUR 


93 N) 


2' 


DD FB 


SL'ECRA*. 


A FART1R DE l.A 








! VALEUR 


DU CURSEUP 


95 7D 




CALPOS 
CALPUS1 


LDA POINTEUR 

CLC 

ADC HTAB 

LOX VTAB 

CMF' UNDUTH 


957D 
937D 
89 '[> 
990 
9S82 
QB4 


20 

BO 

c* 


7D EO 

17 




BCC CALP0S2 








SBC UNDUTH 

INX 

BNE CALPOS 1 


95S6 

ase 


DO 


ED 




nee 

9388 

9388 






CALPUS2 


STA CH 

STX CV 








JSR LIGNE 


95BB 2t 
95BB 90 


C9 95 
OC 


iLECTURt 


D'UN CARACTERE 


950D 
95af 

ns i 


A6 
DO 
C9 


DE 


itiRAHCHt 
[RETURN 


SI - , -.ESC 

OU CONTROLE C 


28 


CAT M 


jSR RD»E. 


939! 


C9 


2D 




EMF •FlECHEG 


9597 


D. 


EM 




BEO RECULE 










CMF iFLECHED 






OE 




ftEO AVANCE 


959b 9D 






CMF 4RET 


959E 


ft 


DE 




BEO RETURN 


95A-, 


4l 


5C DD 




CMF ESC 


"5f- 








BEO ESCAPE 








CMP CTRLC 


95a: 








BEO CONTROL! 
















tCAPACTERE iiiiRM-l 


■•■..." 


B5 


2-* 




en Fur* : ion 






,'■; 


1 Du 1 . P 


DEHhIIDI 


«5^B 


85 




(PUIS EfMNCHEHEN 


WMI 










>5F 


n 





CMP ««A0 
BCC CARAC 
AND •! :■[ 
TAV 

LDA POINTEUR 
CMP LONGUEUR 
BCS CARAC 
LDA TVPECAR 



LDA AD5PG.X 
STA ADSAUT1 

, .'.. ... ■::!■(-. I. > 

STA ADSAUT2 



329 ESCAPE 



331 CON1R0LC: 



ida mo:. 

JMP BREAI 
LPA POINTEUR 
BEO CARAC 
MC POINTEUR 
JMP CALPOS 
1 Dl FOINTEUR 
CP< LONGUEUR 
BCS CARAC 
INC POINTEUR 
BNE Cf-LROS 



346 (ET ESC t 



LDX POINIEUR 
CPI LONGUEUR 
BEO RET1 
LDA MAO 
JSR NET? 
JSR EMISSION 
LDA #0 
STA ESC 
BIT TYPEVAR 
BPL NUM 



TXA 

LDX 9BUFFER 
LDY /BUFFER 
STX PNTR1 
STV FllTRl+1 

JSR IE3D9 
JSR *E*23 

JMP IDB7B 



LEVA *B9 

PHA 

LDA KBUFFER-I 

STA IBS 

LDA 'BUFFER-! 

STA !B? 

JSR 4BI 

JSR RECFLP 



VERIFICA1I0N POUR REEL 
POINT * «FF iPAS DE POINT 
DANS LA 70NE, SINON POINT- 
PUSH ION DU PUINT 



CPX POINTEUR 



413 VERIF 



> POINTEUR 
I POINT 
I RANGE 
I ■> 

« POINT 
E RANGE 
T ETAT2 
1 ERRF 



424 1W€ LEURE OU UN BL«NC 



435 ENT IEP 



444 .-■..'ii,t 



JSR LHIFFRE 
BCC RANGE 

LD< POINIEUR 
BNE ERR 



[.. PL INltUF 

.-:fH BUFFER,! 

INC POINTEUR 

..MF LOUT 



,1'- BUF'ER.' 

suite page 9 



MAGIBRIQUE 



% 



Ce jeu consiste a.eliminer a I'aide d'une raquette 
(bleue) qui frappe sur une balle (rouge) le plus grand 
nombre possible de briques (vertes) qui constituent un 
mur. 

L'ordinateur demande d'introduire le nombre (maxi- 
mum 4) et le nom des joueurs. Le nom du joueur qui 
devra prendre place clignotera. Face a son nom s'ins- 
crirason score. 

La raquette se deplace vers la droite par pression de la 
touche S, tandis quelle se dirigera vers la gauche en 
appuyant surD. 

II suffit de frapper n'importe quelle touche pour faire 
debuter la partie. 

Les premieres balles sembleront peut-etre difficiles a 
atteindre... "Patience et longueur de temps font plus 
que force ni que rage..." Perseverez !! 

Gilbert MAGGIO 

100 CALL CLEAR II FOR J-l TO 4 

110 CALL MAGNIFYI2):: CALL SCREENI2):: CALL SPRITE! El , 77 , 7 , 100 , 100, 20 , 0, £2 , 85, 4 , 

100, 12 0,0, 20, €3, 82,5 ,100, 140,-20,0) 

120 CALL COIHCIALL.C):: IP C=0 THEN 120 

130 FOR 1-3 TO 16 :: CALL SCREEN!!):: CALL SOUND! 200, -INTI 1/2 ), ): : NEXT I :: CA 

LL SCREEN! 2) II NEXT J 

140 CALL MOTIONIE1,0,0,£2,0,0,E3,0,0): : CALL LOCATE! £1 , 100 , 100, £2 , 100 , 120, £3 , 100 

,140):: FOR 1-1 TO 300 :: NEXT I :: CALL DELSPRITEI ALL) 

150 CALL SCREENI13):: CALL CLEAR 

160 BS-* 

170 DISPLAY AT!1,9)BEEP:"MAGIBRIQUE" 

180 DISPLAY AT!4,10):"OBJECTIF" 

190 DISPLAY AT!7,1):"ELIMINER TOUTES LES BRIQUES* 

200 DISPLAY AT!10,1):"NB DE JOUEURS SVP (4 MAXII* 

210 CALL KEY(0,K,S!:: IF S=0 THEN 210 

220 IF K<49 OR K>52 THEN 210 ELSE NOMBRE-K-48 

230 DISPLAY ATI 12, 1 ) : "NOMS DES JOUEURS SVP' 

240 POR 1-1 TO NOMBRE 

250 ACCEPT AT!12+I*2,4)BEEP SIZE< 10 ) :NOMS ( I ) 



-ft'" 




260 NEXT I 
270 DIM A(B,3) 

280 gosub 2450 i """initialisation" 

290 randomize 

300 call clear 

310 call screen! 2) 

320 colonne-22 :: ligneb-10 

330 rem********mur de briques******" 

340 briqueS-'pefefefefefefefe- 

350 call chari96, briques) 

360 call chari104, briques) 

370 call charu12, briques) 

380 call charu28, briques) 

390 CALL COLOR(H,13,l) 
400 GOSUB 2320 
410 CALL.COLOR(12,ll,ll) 
420 CALL VCHAR(5,18,120,21) 
430 CALL VCHAR(1,17,120,21) 



.40 CALL VCHAR(5,27,120,21) 

450 CALL VCHAR(1,28,120,21) 

' 460 CALL HCHAR(1,18,120,10) 

470 CALL HCHAR|24,17,120,12) 

480 CALL HCHAR(23,17,120,2) 

490 CALL HCHAR(23,27,120,2) 

500 CALL COLOR (9, 14,1 ) 

510 CALL COLOR(10,2,2) 

520 CALL COLOR(13,7,7) 

530 REM*****TRACE DU TITRE*"** 

540 FOR 1=2 TO S 

550 CALL COLOR(I,B,2) 

560 NEXT I 

570 DISPLAY AT(3,1)BEEP SIZEU4): 

580 CALL HCHAR(1,3,42,14) 

590 CALL HCHAR(5,3,42,14 ) 

600 CALL VCHAR(2,3.42,3) 

610 CALL VCHAJH2, 16,4 2, 3 ) 



620 POR 1-1 TO NOMBRE 

630 DISPLAY AT!8*I*2,1 1SIZEI10 ) :NOMSII ) 

640 DISPLAY ATI 9 + 1*2 , 12 )SI ZE( 2 ) : SCORE! I > 

650 NEXT I 

660 CALL HCHAR!22,COLONNE,96)IDESSIN DE LA RAQUETTE 

670 FOR II-l TO NOMBRE 

680 GOSUB 2450 

690 GOSUB 2320 

700 FOR JJ-1 TO 3 

710 DISPLAY AT(B+II*2,1)SIZE!10):BS 

720 NEXT J J 

730 FOR JJ-1 TO 3 

740 DISPLAY ATI B + II *2 , 1 1SIZE! 10 ) :NOMS 1 1 1 ) : : DISPLAY ATI 22 , 1 JSIZE! 7 ) : "PRESSEZ" :: 

DISPLAY ATI24,l)SIZEie):*l TOUCHE" 
750 CALL KEY(0,K,S) 
760 NEXT J J 

770 IF S-0 THEN 700 ELSE DISPLAY ATI8 + 1 1*2 , 1 1SIZEI 10 ) ;NOMS I II ) : : DISPLAY AT!22,1 
)SIZE!10):BS :: DISPLAY AT(24, 1 1SIZEI10 I :B5 
780 DIREC=INT(3*RND)+1 
790 ON DIREC GOTO BOO, 860, 930 

800 REM •»*»*LA DIRECTION DE LA BALLE EST VERTICALE ET DESCENDANTS** *•* 
810 CALL HCHARILIGNEB, J, 104) 
820 LIGNEB=LIGNEB+2 
830 CALL HCHAR(LIGNEB,J,128) 
840 GOSUB 1280 

850 IF LIGNEB-22 THEN 1000 ELSE 810 

860 REM ***»»LA DIRECTION DE LA BALLE EST OBLIQUE ET DESCEND VERS LA GAUCHE***"* 
870 IP J»19 THEN 930 

880 CALL HCHAR|LIGNEB,J,104):: IF KR-1 AND LIGNEB>2 AND LIGNEB<10 AND AAILIGNEB/ 
2-l,J-18)=l THEN CALL HCHARILIGNEB, J, 112 ) 
890 LIGNEB-LIGNEB+2 :: J-J-l 
900 CALL HCHARILIGNEB, J, 128) 
910 GOSUB 1280 

920 IF LIGNEB-22 OR J-19 THEN 1150 ELSE 880 

930 REM ***«*LA DIRECTION DE LA BALLE EST OBLIQUE ET DESCEND VERS LA DROITE***** 
940 IP J=26 THEN 860 

950 CALL HCHARILIGNEB, J, 104):: IF KR-1 AND LIGNEB>2 AND LIGNEBU0 AND AAILIGNEB/ 
2-l,J-18)=l THEN CALL HCHARILIGNEB, J, 112 ) 
960 LIGNEB=LICNEB-»2 :: J-J+l 
970 CALL HCHARILIGNEB, J, 128} 
980 GOSUB 1280 

990 IF LIGNEB-22 OR J-26 THEN 1230 ELSE 950 
1000 REM *****RENVOI DE LA BALLE PAR LA RAQUETTE***** 
1010 KR-0 :: KP-KPtl :: IF KP-4 THEN KP-INT!RND*3 ) *1 
1020 ON KP GOTO 1030,1040,1060 
1030 IP COLONNE=J THEN 1350 
1040 IF COLONNE-J AND J<26 THEN 1440 
1050 IF J-26 AND COLONNE-J THEN 1350 ELSE 2170 
1060 IP COLONNE-J AND J>19 THEN 1640 
1070 IF J-19 AND COLONNE-J THEN 1350 ELSE 2170 
1080 REM *****LA BALLE DESCEND TAPE LE MUR ET CONTINUE 
PLACANT VERS LA DROITE***** 
1090 IF J-26 AND LIGNEB<22 THEN 880 
1100 IP LIGNEB-22 THEN 1150 

1110 CALL HCHARILIGNEB, J, 104) : : IF KR-1 AND LIGNEB>2 AND LIGNEB<10 AND AAILIGNEB 
/2-l,J-lB)-l THEN CALL HCHARl LIGNEB, J, 112 ) 
1120 LIGNEB-LIGNEB+2 :: J-J+l 
1130 IP LIGNEB>22 THEN 1150 
1140 CALL HCHARILIGNEB, J, 128) 
1150 GOSUB 1280 

1160 IF LIGNEB-22 THEN 1000 ELSE 1080 

1170 REM ***«*LA BALLE DESCEND TAPE LE MUR ET REPART VERS LA GAUCHE***** 
1180 IF J-19 AND LIGNBB<22 THEN 950 
1190 IF LIGNEB-22 THEN 1230 

1200 CALL HCHARILIGNEB, J, 104 ) :: IP KR-1 AND LIGNEB>2 AND LIGNEB<10 AND AAILIGNEB 
/2-1.J-18I-1 THEN CALL HCHAR I LIGNEB, J, 112 ) 
1210 LIGNEB- LIGNEB* 2 :: J-J-l 
1220 CALL HCHARILIGNEB, J, 128) 
1230 GOSUB 1280 

1240 IP LIGNEB-22 THEN 1000 ELSE 1170 
1250 GOTO 2170 
1260 REM * * * « •DEPLACKMtNT DE LA RAOUETTB"' 
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TANK 



Dirigez votre tank en evitant de sauter sur une mine et 

essayez de decouvrir les documents secrets qui vous 

rapportent chacun 25 points. Si votre tank explose, 

vous perdez une vie, mais en recuperant 5 documents, 

vous en regagnez une ! 

Pour vous dinger, utilisez les touches 5, 6, 7 et 8, et zero 

pourtirer. 

Ce programme fonctionne sur ZX81 avec extension 

16K et, facultativement, avec une carte sonore 

QS Sound. 

J.-M.JACQUET. 
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REM 








LET HGS=0 






LET > 


5*32767 
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POKE 
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■Y.15 
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POKE 
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■Y.I 
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AT Q.3: 
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? LET FW 1 >=-t>EVENEZ UH RG&fT-SECnET" 
5 LET «■=>."«.. SERVKE t'E LA C.l.A." 
« LET *%■ ]>-EN PENETRANT F. vos ■ 
5 LET F»C4>- I RIS0UES ET PERILS, DANS" 
S LET »-l 
7 FOP M=8 TO 3 

- rot ■.:.-. i,-, .,.. 

I LET L»»-T»Ml" 

B PRINT FIT N*5*2.X*2." MM - 

9 PRINT FIT Nt5*3.X*2," «-.L»'N*l TO N-. 

f> PRINT FIT NI5*4.:-:." J fc . 

? pfiiit ht hi'.--;. ■ ■ - 

£ PRINT HT III',.?. KjMCK*l ■•:■>] TO X«l 

7 POKE YY.150 

9 POKE YY.0 

B NEXT X 

3 NEXT N 

4 LET h h.| 

! IF Ft'>2 THEN GOTO lit) 

5 FOR 1=0 TO 21 

7 PRINT AT 1,831" 

S POKE vr.itte 

9 NEXT 1 

9 LET «•' 1 '-"UN LABIPYNTHE OU SONT" 

1 LET A^E'-'CACHES MS DOCLWNTS" 

2 LET FW3>-"s*cr«tt.P«* irOMMENrER- 

3 LET (m* '»"(WP((VEr -i* Uie TOUCME." 
« IF ft-2 THEN GOTO 157 

? PfWSE 4E4 



299 G06UB 9090 

309 REM ENTREE OES VARIABLES 



J DIM X<3> 

J DIM Y<5> 

> SLOW 

J FOR F4-1 TO 5 

9 LET X'AWNT 'Rt*H2>*9 

9 LET Y(A>-INT < RNM29 >*2 

9 NEXT ft 

9 LET PTS-B 

9 LET VIE-4 

1 LET DOC-9 

2 REM AFFICAGE Mi TABLEAU t'E 
? ITEM BORt>. 



Rf*E VV39 








FtJKE YY.68 




PRINT HT 6.2, "Points " 


PI! 


POKE YV-129 




FOP Fl"] in vie 








PRINT -|-i 








PRINT "•- 




LET X«9 








LET V-l 




FOR 1-1 TO 29 




IF [>? AND 1 21 THEN 1 


HH1 






tCXT I 




PEM lEPl.ACEMENT'- 









PTS.AT 6- !>."*! 



,"r>.AT 6.2B.-*sci)w*nts 



J LET P-266 

3 SLOW 

3 LET 0F1LE-PEEI [6396+2-56*PEJE* 16397 

1 LET AP=P 

J LET Efl-INKEY* 

i IF MO** THEN GOTO 589 

", |f T f:v ■■.:■ 

3 LET M-IWEY* 

."9- THEN GOTO 66*0 



9929 IF 1-9 op 1-7 OP i-;-i 
9939 '€:-T I 

*»»»l',V "-' 

»I(W FOP B=l TO 125 

9119 PRINT AT HIT ■ Mtf.ir 

-.t_'5 PO.F vv 2M 

a|2S pnt-E YY.0 

9IM HEX! A 

■'179 RETURN 

<-29A PRINT FIT ",.\ .-•mm—* 

i*in FOP P-1 TO VIF 

«.'39 PRINT BT SM.-r 

9?4P NEXT ES 

-7SO RETURN 



THEN PRINT AT I 9 •••■■ 
■•*.- ■"■ktVPlffl 3.3." 
■ft. [in fRMT)tS9>+2 " ' 



5H If r* "5- AMt> f»- 



•?- F»C ft..-- 



■ THFti GOTO »1 



J LET p*"CS 

I IF B»""5" Then LET ,-■ -I 

> IF P«« H 8" THEN LET t"f*\ 
; IF B«="6- THEM LET X«X*I 
) IF B*""7* THFPI 1 FT - -1 

J IF :■'=:■:< I i »*■ v=v 1 > OF : :.y, ;■ ■ f*it> v.yf 2 ■ r^ X«» 9 - »«■ v-.v 3 

■Y<4> OP «»)ff?l 9t«- Y"S' THEtl GOTO 699ft 

1 LET P-fiPwp.*.->5" ■-'Ei»=-*- "-33ti b*'- 7" >»33* B»«-S" ' 

* It peek CDFILE*FK>27 *«■ PEEK' ■■(■FILE-P 1 13* THEN GOTO ?999 

i POKE 'DFILE*P • >:tlDF "C" 

1 pnt.E .C'FIt.E*fiP-.rot'F H* 

I POKE YY.-'INT .p-33>'t5 

I FOR I-l TO 2 

1 IC1 ! 

I POKE YY9 

> IF L '-4 flNt> L--IO THEN PRINT FIT INT ■ RNDtlZ -*8, INT < Rt»>129 >*2 

■ ■ 1 : .,!■ | 

) IF :: -n\ fu(- ■; \ THEN LET PTS-PT5+1 

3 PRINT FIT S 9.PTS 

J IF PT?* 1 ;.? THEN LET «iE="IE't 

1 GOTO 580 

i STOP 

) REH 

J PEH ftfr IWHT'S 



1=2? TO 9 STEP -1 



z% 81 



5 PRINT FIT 3,B*"a-ie TIP ET BFFIQKE WJ FWCO'JF- 

£ POKE "I-Y.2W 

9 PRINT -4-19 TIPS" 

* PRINT V-ie TIPS ET IJN MUR BUI ?-"ELF-^ [€RRIEPE LE TFWK" 

5 PRINT -*-'5 TIP «FF!CHftGE fl.i PfiRCiXip" . "HWAfL OBSTFICLF IH CHAOUE COUP." 

S PRINT -*-|[>EM - ftFFICHAGE MJ PftRC-OUP. " 

7 PRINT -A~10EM I l*» C€RPiEPE LE TFWK.- 

3 PRINT "0-2 OeSTFlCLES ft CMROUE r0UP»MHF." 

■■- PRINT -.-i-IC€M*NrjOVELLE VIE prjrjp ^ PTS ~ 

9 PRINT -«-I0EM*NO'JvELLE VIE POL* 10 DO- -CiWEHTs" 

] PRINT -iK-fl SRNS NOIJVELLES VIES" 

I POKE YY9 

3 PRINT HT 2I.01-ENTPE2 LE NL»«PO (€ LP. VflPIPMTE." 

» INPUT L 

! LET T-0 

S IF LN OR L*5 OR L*6 THEN LET T-5 

7 IF L"l OP L"2 OP L=? THEN LET T-19 

3 LET IW-r 

3 IP L-1 OR L-4 THEN LET M»»".- 

9 IF 1*3 OR L»6 ANT L>19 THEN LET M*=". - 

I IF L«4 OR L"3 OR L«6 THEN LET Cm*' ■- 

I IF L-8 OP L-? OP L>9 OP L-19 THEN LET 0»«- - " 

3 LET SP=2M 

I IF L-8 OP L-9 THEN LET SP»599 

5 IF L"19 THEN LET SP*1E9 

s LET SC-5 

7 IF L-9 THEN LET S0»19 

3 IF LM9 THEN LET S0«IE9 
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.=1**1 LET rtiL-»Tx"i! -1 
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Wftf FOP 1=1 TO ? 

seer if wiwk rhp wiht then let v t- 

6909 NEXT I 

6910 IF t-OC-W THEM LET VIE=V!E'l 
69?9 LET PTSiPTS*?5 

6010 IF PT9-SP THEtl LET VIf»VIE*l 

6940 FOP fi=0 TO 3? 

ea*# PRINT FIT X.Y*l,"d" 

69«0 PRINT FIT X.Y»1."C" 

69e5 POKE YY. INT ■' Pt(T't2W » 

6970 NEXT Fl 

ki»75 POKE YY.O 

.-.1=9 print fit :■: Y -•" 

^099 GOTO 439 



REM POSITION pi j t». 

PPM .^..^_^_ 

PEH 

IF W»"8" THEN LET Y"i 

IF B*"-?" THEN LET Y-'i 

IF 6«="e- THEN LET X=> 

IF P»--7" THEN LET »> 

RETURN 

IF T=9 THEN Giro -.'-0 

LET T-T-l 

FOP !=Y TO V4fl 

PRINT FIT X. !)■»-• 

POKE YY.'I-Y>t"« 

POKE YY.78 

NEXT I 

POKE YY.9 

PRINT FIT «.!'••" 

PRINT FIT S.|7iTi"r 

GOTO ?90 
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6910 R 

i?9?0 C 
6939 P. 
7990 Pff.iSE 190 
7918 OLS 
7811 LET C«-" - 

7031 IF PTS>-HGS THEN LET HGS=PT? 
7939 LET S«*STP« HGS 
7898 FOP l-l TO LEN S« 

7189 LET C«=C»»f;HR» (VHSKl TO I 'tlW 1 
7129 NEXT I 

71W PRINT AT 8.19 "hi9h*lT" 
— 

rtv print at 2\9 -wmmw 

7168 FOP 1-1 T0 19 

7165 PRINT AT 1-I2;C* 

7179 POKE YV.ItM 

7171 POVE YY.9 

7198 PRINT AT 1 . 12.HGS 

7199 NEXT I 

7299 PRINT AT 58-"V0TPE TAMF 9 ETF I-ETPMIT" -VO".i? AVE2 WTEHU 

7210 PRINT AT 11 A:"pmiP PF-mnFP RPPir,E7 SNP "" i"." 

7B1I POKE VY.TO 

7215 PM.'SE 4E4 

7716 POKE YY.9 

7228 IF INKEY*-- r THEN GOTO 240 

7225 IF INKEV*0" I- THEN STOP 

8919 PEN TRACE C+i TERRAIN r«E €'l 
90?9 PEN — — — — 
9979 R 
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logiciels passionnanrs! 



20 bis . rue Godefroy 6900B Lyon 
Tel: 7/ 894.39.14 
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Vous avez tous fait un program- 
me plus ou moms long qui puisse 
mteresser les ulilisaleurs du me- 
me ordinateur que le votre, un 
programme de jeu, un program- 
me qui facilite la programmation 
ou me me une simple astuce qui 
augmente les performances de 
votre machine. Ce programme, 
HEBDOGICIEL va le publier, 
vous allez devenir les journahs- 
tes de votre journal. 



Notre objectif est de faire circu- 
ler les programmes francais et 
de, excusezdu peu, faire circuler 
"La Pensee Informative Fran- 
ipaise". 

Nous serons seulement les 
moteurs de ce mouvement en 
organisant les deux concours 
permanents d'HEBDOGICIEL et 
en remunerant 1000 francs la 
page imprimee pour les pro- 
grammes, les astuces et le 
redactionnel. envoyes par les 
lecteurs. Les programmes recus 
seront testes par nos specialis- 
tes et si votre programme nest 
pas tout a fait au point, ils vous 
indiqueront comment le modi- 
fier pour qu"il puisse etre publie 




PETITES BOULETTES ! 



RECTIFICATIF AU N 1 

Les lecteurs nous ont signale un 
probleme concernant le pro- 
gramme POKER publie dans le 
n°1 d'HEBDOGICIEL pour HP41 
pages 2 et 9 En fin de program- 
me, le calculateur s'eteint auto- 
mat iquement Une pression sur 
lONlne remet pas la machine en 
fonctionnement et seul un BEEP 
se fait entendre ... 
Deux possibilites semblenl per- 
mettre de resoudre la difficulty 
En pre mier l ieu, il suffit d'appu- 
yer sur [ON] et immediatement 
apres sur E^S] ce qui remet le 
plus simplement du monde les 
choses en ordre. Ouf !!! Votre HP 
fonctionne a nouveau Une solu- 



tion moins elegante pourrait 
con sister a presser tjavant le 
BN] Cependant le MEMORY 
LOSTafficheindiqueclairement 
que le programme est perdu 
En second lieu, vous pouvez mo* 
difier legerement le programme 
"Wl" de la maniere suivante : 
Ancienne version: 

279 LBL d 

280 SF11 

281 OFF 

282 GTOd 

283 END 
Nouvelle version 

279 LBLd 

280 -BANOUE-0" 

281 AVIEW 

282 EXQ"PR" 

283 END 




Sur le listing du programme 
ORIC 1 d'HEBDOGICIEL nume- 
ral (annuaireelectronique)l'im- 
pnmante SEIKOSHA utilisee a 
"mange" 2 caracteres : a la ligne 
I486, il faut lire LEFTS au lieu de 
LEF$, et a la ligne 20120 il man- 
que un chiffre la ligne devient 
DATA 01CA853386346018A5CE 
65338561 A5CF65348562A004 
B1CE20F6D1855F84 608501 



C'EST NOUVEAU, CA VIENT DE SORTIR ! o 

7 ' 1 O 



Les cassettes de jeu VIRGIN GAMES viennent de sor- 
tir: pres de 20 cassettes d'un seul coup! 
Disponibles des a present dans les FNAC et a la Regie a 
Calcul, elles seront rapidement chez votre revendeur 
favori. Vous pouvez ecrire au distributee francais 
TOPODIS pour obtenir la liste des points de vente o'u la 
demander au journal. 

Les ordinateurs concernes sont nombreux : ORIC, VIC 
20, COMMODORE 64, SPECTRUM et TEXAS Ti 99/4A. 

Pour SPECTRUM (16 et 48 K) : YOMP un jeu ou il faut 
guider des paras au milieu de camions, de voitures et 
de tanks avant de les faire faire ziggaguer dans un 
champ de mines. GOLF: un championnat de golf en 
chambre. 

Pour SPECTRUM 48K : SHEEWALK ou votre chien doit 
rattraper et rassembler un troupeau de moutons avant 
qu'ils ne devorent les recoltes. 
STARFIRE jeu spatial de strategie et d'habilete. 
RACING MANAGER ou vous dirigezlemonde des cour- 
ses de chevaux et LOJIX, un puzzle geant alJiant I'intel- 
ligence et la deduction. 

encore pour SPECTRUM : QUETZALCOATL, ROBBER, 
SPECTRON et LOST. 



Pour ORIC (16 et 48K) : KILLER CAVERN, une aventure 
graphique dans la caverne du tueur. 

Pour VIC 20 : MISSION MERCURY avec asteroides, pla- 
nete folle et scientifiques en mission a recuperer d'ur- 
gence. ENVAHI (VIC 20 + 8 K) ou vous protegez la ville 
des envahisseurs avec un helicoptere et CREEPERS 
(VIC 20 + 3 K/8 K) jeu d'arcade avec cite souterraine, 
aliens et tunnels. 



Pour COMMODORE 64: 

MANIA. 



FALCOM CONTROL et BIT 



Pour TEXAS Ti 99 4/A: ROBOPODS et FUNPAC 

Nous sommes en train d'essayer ces jeux et, si aucun 
monstre ne nous devore et si aucun de nous ne devient 
fou en essayant de resoudre une enigme geante, nous 
vous donnerons les resultats de ces essais tres pro- 
chainement. 



(Le prix de vente de ces cassettes est d'environ 1 50 F. 
TOPODIS: le petit parcZI - 78920 ECQUEVILLY). 



La FNAC edite un dossier 
sur 13 MICRO-ORDINA- 
TEURS: APPLE lie, ATARI 
800, VIC 20, COMMO- 
DORE 64, HECTOR 
LAMBDA, MATTEL AQUA- 
RIUS (SIC), NEW BRAIN, 
ORIC 1, SANYO PHC 25, 
SPECTRUM. TEXAS TI 99 
4/A, THOMSON T 07 et 
LASER 200. Les ordina- 
teurs ont ete juges sur 
quatre parametres: jouer, 
maitriser, creer et exploi- 
ter, et la FNAC a attribue 
ses fameuses etoiles 
d'appreciation. Allez cher- 
cher ce dossier GRATUIT 
dans les FNAC et comp- 
tez les etoiles! 




PETITES ANNONCES GRATUITES 



Nos colonnes vous sont ouver- 
tes, n'hesitez pas a envoyer vos 
annonces au Journal, n'oubliez 
pas de mentionner vos adresses 
car nous ne pouvons accepter la 
domiciliation au Journal. 



Etudiant en electronique vends 
pour -ZX 81 RAM 48K. boitier, 
Clavier pro, manettes de jeux, 
inversion video, super alim., 
couleur peri TV. ROM commu- 
table: Assembleur, HGR, rou- 
tines graph., debugger. Tel. 
apres 20 h . 540.85.39. 

Vends, pour HP41, imprimante 
82143A. Excellent etat. JO HEC- 
TUS. 78, av. dAlfortville 94600 
Choisy-le-Roi. 

Vends TRS 80 modele 1 LEVEL II 
1 6 K + interface 32 K + video + 
housses + 2 drives-!- TRS DOS + 
NEW DOS 2.04- profile + visicalc 
+ versatile + personal manager 
+ WAL DB + SCRIPSIT + NOTI- 
CES + LIVRES. Etat impeccable. 
1 1 000 F comptant. Tel. (20) 
07.3601 le w.-e. VAN DER 
HAEGHEN 30. rue des ROUS- 
SEAUX 59320 HALLENNES. 

Vends TRS 80 MOD. 1 NIV 2 48 K 
(dec. 81) avec interf. expansion 
+ 2 drives + docs + S.E.D. (NEW 
DOS. LDOS, TRSDOS. DOS- 
PLUS en francais) + Cobol, Pas- 
cal. Mumath, visicalc, profile, 
SCRIPSIT ... + NBR programmes 
jeux, utilitaires. vendu 13000 
francs. A. Recourchines. 53, rue 
E.-BONTE 91130 RIS-ORANGIS. 
Tel. 16 (6) 906.58.31 

Vends separement ZX81 (juin 
83) + MEMOPAK16K-r-8livres + 
3K7 = 900 F - SHARP PC1211 
(sept. 81 ) + 3 livres - 500 F - Tl- 
57 + 2 livres: 150 F - CHESS 
Challenger 7 ; 500 F. Tel. MAZIE- 
RES: 500.41 .37 (soir). 

Vends HP 85 16K avec biblio- 
theque standard + statistique 
+ manipulation de donnees + 
10 cartouches + doc. + petits 
programmes personnels: 16000 
francs. J.-J. CHARBONNIER. 
Imm. BOURBONNAIS. rue G- 
Braque 76530 GRANDCOU- 
RONNE. Tel. (32) 43.08.20 poste 
732. Domicile : (35) 68.24 81 

Cherche contacts pour echange 
programmes pour TI99/4A. Elie 
VEKRIS. 25, rue Paul-BARRUEL 
75015 PARIS. 

Vends pour TI 99/4A boitier peri- 
pherique + contr6leur+ lecteur 
disquette + 4disquettes.4300F 
Tres bon etat. M. LABAT Pierre 
Res. ARAGO 1. Entree 18 Appt 
222. 33600 PESSAC. Tel. (56) 
45.83.98 




recherche DEMONSTRATEUR 
connaissant ZX81 ou ZX SPEC- 
TRUM. Periode: novembre et 
decembre. Stage de formation 
(10jours) remunere. 
Telephoner de 9 h a 18 h au 
256.16.16. 

DIRECOB 



VENDS ORIC 1. 48K, achete le 
30/07/83. Tres peu utilise, 1500 F. 
Ecrire: B. ALBA, 19, rue du 
ROUSSILLON, 81 100 CASTRES. 




Achete ORIC 1, 48 K, environ 
1800 francs J.-C. Jacquet, 8, av. 
du Marechal-Juin 77400 Lagny. 
Tel. 430.86.06. 



Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peri pherique ni module com pie men taircs. Des jeux originaux et passion- 
nants avec couleurs,graphismeset sons: Jeux demouvement (Bowling, Bataille 
de lespace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
Hanoi, Architecte, etc.). Jeux desociete {421, GoldiB.Cochon, Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants: Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR, Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 1 55,00 francs francais. Disponible. 



JEUX et PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 



I 



INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 

Ti 99 4/A 




40 VRAIS PROGRAMMES. 
PLUS DE 6.000 LIGNES 
DE LISTING ! 



LE LANGAGE ASSEMBLEUR 
AVOTREPORTEE! 




programmes en Ti basic pour "Ti 99AA" 



Vous connaissez le Ti-Basic. vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse d'execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables, a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195,00 francs 
frangais. Disponible en francais et en anglais. 



VENDS jeu d'echecs electroni- 
que CHESS champion MARK V 
marque SCISYS. nombreuses 
possibilites de jeux. PRIX 1 800 F. 
M. LAJUGIE Ivan. 57. rue Cha- 
ziere 69004 LYON. 

Club des programmateurs fous 
recherche adherents pour 
echanges par correspondence. 
J.-C. Jacquet, 8, av.du Marechal- 
Juin 77400 Lagny Tel 430.86.06 
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DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. 

N„m/P,,!nom I I 

Ad,«,se I I I I I I 



TOME 1 □ 156 F 
TOME 2 D 155 F 



U 



ii i 



I I I Cod, 

We I I I I 

DATE . SIGNATURE 



a 



TOME 3 [ 1 155 F 

ASSEMBLEUR □ 195 F 

CONTRE REMBOURSEMENT FRANCE + 20 F D 

CONTRE REMBOURSEMENT ETRANGER + 30 F O 

REGLEMENT JOINT I I I I (Olft F 

cheque D ccp □ 

SHIFT EDITIONS, 27 rue du Gal Foy, 75008 PARIS 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rjen de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ametiorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer. il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I 'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement : 

ART 1 : HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART 2 ; Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K 7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mands par la redaction de notre 
journal constitue I'acte de can- 
didature. 

ART. 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selecttonner sur la base de la 
qualite et de I'originalite les logi ■ 
ciels qui sont publies dans le 
journal 

ART. 4 : Ce sont les lecteurs qui. 
par leur vote, determined les 
meilleurs logiciels mensuel et 
trimestriel 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensueJ. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART, 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre. I.rue des Halles 75001 Paris 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en-avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOV - 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom : 

Prenom ; 

Age : 

Adresse : 

n° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni 
une copie d'un programme existant. Ce programme reste ma pro- 
priety et j'autorise HEBDOGICIEL a le publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne dun Descriptif Detaille du Materiel uti- 
lise, dune Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non public 





DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOfRE, INTERFA- 
CE RS. 232. C. 



GOLF 



Choisissez le bon club ! 
Attention aux arbres et aux bunkers ! 
Afriverez-vous a contourner le plan d'eau 
sans y noyer votre balle ? 

Ariel CHEMOUNY 
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440 inP.OTMCrifRIrir'-prlilhT; £<i WiVr- I€ L tiPlimiM. ' 


9SBC 




465 






•'.[ - 


70 








ADfi ALPHH6E1 


458 ■ ISUM48 


95BC U 


00 


40(, 


NET 


LDX 10 


'M.I' 


99 


-', 


.'.; ■ ■ 




ADF ALFHWJUh 


470 F*iHT" ■ . - in- w 

480 PRINT"* •uAliI- VOUS EIES !UB L n -Mil. i. CLUtf: ■! 1 


95&E A9 


M 


W 




LDfl ■' " 


95DD 






49.1 






TOCO 9D 




■■■ il 


m\ 


STrt BUFFER, i 


J501 


45 




49] 


CAR 


A5C E 


METRES - 


95tr. EB 




■>-.. 




INK 


■:[■[. 


5: 








,. ■ 


490 PRINT , | ■ 


95C4 E4 


[>B 


4T(| 




CPI LDrJTillEUR 


KOM 


41 








ASC "(I' 


500 PfflNT"* •UnrfB «US L re; EN VUE DU rWU IL5 t* pfi i iT F, t , 
NVIRON 60"M 


95C.6 DO 


F9 






BNE NET^' 


95E" 


59 




494 




MSC •/' 


510 PRINT' -EL*. ■ ■ ■.:!■'■ 


95C8 6" 








RIS 


93E 1 






495 


LARCTA. 


hSC 'S' 


5« 60T« 


95C9 










951 . 






494 




ASC "C 


5» PRINT-MM HPFWE2 l#t TOUCH ■ ■■ ■ 


/:.[ -i 




4. '4 


IS! 


A ESI 1 CM1FFRE 


■t',1 - 


4; 




497 




A5C -6' 


-40 GETS* IF£.|. 'THEN540 


93CT 




475 


: 


, SINON C>1 


95E4 






49S 






" 


99 ■" 




4.'o 






991 -1 






499 




END 


READV. 




VVC20 




CAO SPRITE 



Ce programme de "conception assistee par ordina- 
teur" vous permet non seulement de gerer la creation 
devos sprite, mais il est concu pour recevoirles amelio- 
rations personnalisees que vous souhaitezluiapporter 
(chargement des resultats sur cassette, impression sur 
imprimante, etc.). 

Claude MACEY 



PROGRAMME DE CRLCUL DES DATA SPRITE; 



7 REM 



'Tr : "3" ■ POt^Ji^ij POTE'iiiol .9 

11 M*'1j="DESSIN D'UN SPRITE" 

12 (1*(2' = "PR2 OU SPRITE EH COURS" 

13 M*{3)«"S£L£CTI0N DUU DRTR SPRITE" 

14 M*(4)»"AFFICHAC-E DES DRTR NOUVEAU SPRITE" 

15 M*<3)--PR0GRflMMfiTI0M DES nuUVELLES DRTfl" 

16 l«(6 ^"RESERVE 1 ' 
IT MJ. 7 = "PEiEPVf 
IS M* '8 >-" RESERVE" 

IS N*ev, = "PEGLES D UTILISATION" 

51 M*«"CMJ -RETOUR AIJ MENU A TOUT MOMENT" 

52 P*="[P1 -POUR PROGWMnER LES DATA" 

53 CH*=" CH0IS1S UN NUNERO DE SPRITE 

54 ETJ="ENTRE 1 ET" 

55 LZ*«" 
1 DK<2,28> NS;>0 




5 REM 



RFFICHAQE DU MENU 



Mf<I>. 



DESSIN DU SPRITE EN COURS 



GOTO 120 
I DU HERD SPRITE NUMERO". 3D. "11" 
'>. FOR X=0 TO 2 HX-MOi-Vi 

GOTO 125 
:-IK<8 THEN PRINT " "; GOTO 124 



NEXT S 



SI REM 

82 PRINT "D". TAB': 16.'. ■'MENU". 

83 FOR I«l TO 9 PRINT TRB'82.'. 
94 PRINT TAB<122>. Mf, 
85 GET CL* IF CL*="" THEN 85 

- ..-■■: i L t -■■-. IF CL .1 OP Cl ■■* IHEH ■:■'. 
8? ON CL GOSUB 100.200. 300.488,500.600.780,888. 900 
88 GOTO 80 

Ply REM 

01 REM 

02 IF SXO THEN 220 
05 PRINT "IT, TAB'.10> 
10 PRINT ".T, TflB'4>. "DESSIN 

20 FOR V=0 TO 20 PRINT TflB'4 

21 IF »>0 THEN PRINT SPC<S:>, 

22 DZ-128 FOR S=0 TO 7 IF K 

23 PRINT CHR*<166>. HX=WC-IK 

24 VY.'V/./Z NEXT S 

25 NEXT X.Y 

26 GOSUB 1250 
GOSUB 1800 RETURN 

200 REM REMISE fl ZERO DU SPRITE EN COURS 

281 REM 

202 PRINT "«" PRINT TAB'246). LZS. 

283 FOR 1=0 TO 200 NEXT 

284 PRINT '«" PRINT TAB'246>. M*<2>, 

205 FDR I-B TO 300 NEXT 

206 GET CL* ■ IF CL*-"M" THEN RETURN 

207 IF CL*0"2" THEN 202 
228 S2-B 

222 PRINT "Tl". TABUB), M*( I ) 

22 3 FOP X=0 T02 FOR V-0 TO 20 W. 

224 GOSUB 1258 

225 X-8 V=e OOSUB 1890 RETURN 

300 REM SELECTIOH D'UN NUMERO DE DATA SPRITE 

310 PRINT "3", TRB(6>; M*<CL>; TA8f242)T 

311 IF NSK-0 THEN GOSUB 1200 

312 PRINT "«". TAB<241>; 

313 SD=1 RESTORE ON NS* GOTO 340. 338 
315 PRINT CH*. TRS<93>. ET*. HSX-i 

320 GET A* IF A*-"" THEN 328 

321 SIi=RSO:A*:'-4B IF SD<;i OP SD>NS!i-l THEN 320 

322 IF SD>1 THEN FOR J-l TO 63*<SD-1.» READ DT NEXT J 
?38 FOR V*0 TO 28 FOR X=0 TO 2 READ DZ<X.V> NEXT X.V 
331 SX-9 -GOSUB 118 RETURN 

MB PRINT " IL N'V R RUCUN SPRITE MEMORISE ". TA8<243>. MI 

341 GET R* IF fi*-"M" THEN RETURN 

342 GOTO 341 

400 REM RFFICKRGE DES DRTR DU SPRITE EN COURS 

401 REM 

402 PR INT "3". TAB'S). M*'CL>. TRB<80J 

463 FOR V0 TO 18 STEP 2 PRINT TAB(9B>. FOR VV=8 TO 1 

484 FOR X"0 TO 2 :PRINT THBC2*13»YV*e*x ■.. . DK- :■: ■ v+vv ■ . 

485 NEXT X.VV.V PRINT TRBtSO/. 

406 FOR X"0 TO 2 PRINT TflB<2+6*X>; W.'.X.Wi, NEXT 

410 GET Af IF A*»"M" THEN RETURN 

411 OOTO 410 

580 REM PROGRAMMflTION DES NOUVELLES DATA SPRITE 
5BI PEM 

518 PRINT "3"; TABf4*i; MI'5>, TAB(242), 
311 IF NS^-8 THEN GOSUB 1208 

514 IF NSX-1 THEN SB-I OOTO 348 

515 PRINT "8": TAB'.24l;, "POUR MODIFIER UN SPRITE DEJA MEMORISE" 

516 PRINT TAB'81;. CH*. TAB 1 ; 93); ET*; NSK-1 
51? IF NS;-:=10 THEN 520 

51B PRINT TRB'84., "SI NON RPPU1E SUR [BARRE ESPRCEJ" 

519 PRINT TRB<:243), M* 

328 GET R* IF R*."" THEN 520 
521 IF A*-"M" THEN RETURN 

322 IF R*-" " AND NSKKIB THEN SD-NSJi GOTO 540 

323 SD=RSClA*>-48 IF SD<] OR SIDNSJM THEN 520 

540 REM RFFICHAGE DES DATA 

541 rem 

542 PRINT "3", TfiB'4), II*'.?}; "HO" 

543 ND«I8»STJ PRINT 20000+ND. "DATA", 

544 FOR X*0 TO 2 PRINT DX<X,01. "II,"; NEXT X PRINT "II " 

545 FOR J=8 TO 4 PRINT 20B88*ND*J*1 . "DATA", 

546 FOP 1-1 TO 4 V-4»J*I FOR X=0 TO 2 PRINT DK<X.V>. "II.". NEXT X.I 

547 PRINT "II » NEXTJ 

549 PRINT 20O09*ND*10. "DRTfl"; " -1" 
■™ up I NT TAB' 243.'. P*, TAB'. 83.1. M | 

560 GET A* IF A*-"M" THEN RETURN 

561 IF A*="P" THE" PRINT "«" END 

562 GOTO 568 
S00 RETURN 
730 RETURN 
888 RETURN 

900 REM REGLES ^'UTILISATION 

901 rem 

918 PRINT "71". TAB<8>. M*'9) 

911 PRINT TAB'ieil. "* DEPLACEMEltT DO CURSSEUR' 

912 PRINT TAB'43). "PAR LES COMMANDED C CRSR ]" 
T TABU61> ■ 



* ETPITUPE *■ C FAPPE r ESPRCEMENT ]" 
'• EFFRCEMENT <• t CLR I" 
'(ARRET DE CES FOHCTIONS - 2EM PRESS I OH V 



' THEN ?20 



r,=F-EEl ' I 



' THEN I 



914 PRINT TAB'4 

915 PRINT THB f 4 

916 PRINT TAB'' 21 

920 GET A* IF I 

921 RETURN 

000 PEM 

001 REM 

-'- q.q ;EFX»fl EC::=0 V=40HV* 
013 E=87-t*ECK+'22*EC--;-28>*EF;: 
f;0 n=i-r' :r=p+'E-r...r gosui- ii;:(' 

021 FOR K=0 TO 40 GET fll IF A*-"' 

030 IF fl*="a" then ef:^=i-ef:< 
31 IF A*=" " then Ec;i»i-Ec;: 

032 IF R*="H" AtlD K<23 THEN 1050 

033 IF fl*="D" AND V:20 THEN 1060 

034 IF A*="I1" RND X>0 THEN 1070 

035 IF **="-]■■ RND v;0 THEN 1088 
836 IF A*="M" THEN U«9 GOSUB 1119 RETURN 
848 GOTO 1815 
058 W-l OOSUB 1110 V-V+l IF DJ;;i THEN DX-BX/2 GOTO 1 

051 EX-I28 x:-:=:-;»i goto 1029 

860 w«40 OOSUB 1110 V=V*48 GOTO 1020 

070 W«-l GOSUB 1110 V»V-I IF D2028 THEN D:.:=D;:«i 5OT0 

on d;;-i xx=xx-i goto 1020 

■48 GOSUB 1110 V=V-48 GOTO H 
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Tl 


fl 


J 


3 80 




FEBD 


84190 




CP 


BDH 










bii 5 




04208 




:■■■ 


NZ.M5G 










tM7 


C9 




84218 




RE 1 












we 


3D 




84238 


MSGINI 


DE F n 












txtiSS 


fll 




04240 




DC F B 


BOH 








cw?f 


AAEA 


:..- 




042E0 


MSQR 


DEFM 


' PLOCER LFi CASSETTE SOURCE' 










MS3 


.*: 




04270 




Di 1 i< 


BDH 










a&su 


45 




B4290 


MSGERS 


DEFM 


'ERREliR DE LECTURE' 










4u95 


.■: 




06300 




DEFB 


BDH 








1 V -^ 


H69£ 


SO 




041.20 


MSGERC 


DEFM 


■PROGRAMME EN PLUSIEURS PARTIES' 








\yLfjsk 


AdBA 


8D 




06330 




DEFB 


0DH 




it 






Ulx ^ 


4D 




04350 


MSOERM 


Dr.!" I*. 


'MEMOIRS PLEINE' 




N 


^ 1 


HI 


li , 1 T\ )J 


"** 


8D 




04 1 80 




KFB 


BDH 




t> 


rl 


f 


Wnrf 


&&C4 


58 




04380 


HS6H 


DEFM 


' PLACER LA CAS5ETTE ft ECRIRE EN 100G 


BAUDS' 


~2A 




s=='-^ r5 ~2^, 


4AED 


0D 




04390 




DEFI- 


BDH 




t\^L 






















/&&£& *6*+- - — 


4AEE 






04610 


HSGOK 


D£FM 


■COPIE EFFECTUEE' 










44F0 


BE 




06620 




K F B 


BDH 
















86658 


: ECRITURE 


D' UN OCTET ft 1000 BAUDS 










ftiiFE 


F! 




06670 


BUBYTE 


PUSH 


nF 4523 B62B 


06800 




,, 


B.38 


MFF 


Ch 




B66S8 




PUSH 


4525 10FE 


048 IB 




DJNZ 




4508 


D5 




06690 




PUSH 


DE 










4581 


1EB9 


0651 B 




LD 


D ' 9 4527 063E 


86838 


BU31 


LD 


B. 3EH 


45493 


37 




06520 




BCF 


4529 18FE 


04B40 




D.INZ 


* 


15B4 


sees 


04560 


BHlfl 


JR 


C-BW20 452B m 


06860 




NOP 
















652C BB 


B6870 




NOP 




AS8& 


M ■'.;■: 


045E0 




LD 


B.4BH aS2D m 










4588 


1 7;F E 


04570 




DJNI 


* 452E 80 


84838 




NO" 




458ft 


EN 




84598 




NOP 


452F CB19 


86918 




RR 


C 


458B 


.■; 




06GB0 




NOP 


4531 15 


06920 




DC C 




458C 


7F 




04E.1B 




LD 


n '° 6532 28DB 


B493B 




JR 


NZ.BN1B 


458D 


isia 


04B30 




JR 


BW30 ^53^, eeaf, 


04950 




LD 


Bi 10 














4536 1BFE 


B4368 




EM N .' 


i 


45SF 


IEBS 


04650 


BU2fl 


LD 


5 4538 D! 


86988 




POP 


:js. 


4511 


D5FF 


B4E60 




OUT 


.BFFH..A 4539 Cl 


06990 




PGF 


BC 














453A Fl 


05088 




POP 


RF 


4513 


06 


1 


04680 




LD 


B. 16 653e " 


05010 




RE1 




4515 


1BFE 


B669B 




DJNZ 


» 










4517 


5EBe 


84710 




LD 


ft. 6 










4319 


D3PF 


04720 




OUT 


t0FFH),O ^ zc M 


05030 


BYTCNT 


DEFB 


B 














453D BB 


85B60 


CHKSUM 


DI t B 


a 


4518 


BE 1 B 






LD 


B, 16 453E 


05050 


BUFFER 


EOU 


* : TAMPON 


451D 


: BF E 


04750 




DJNZ 


i 42DF 


05860 




END 


STRRT 


451F 


RH 


04770 




LD 


ft. 4 










4321 


B3FF 


06780 




OUT 


CBFFH). A 


















C R S S 


REFERENCE 










BC2B 




4413 


03900 


83868 














BLINK 




B22C 








eZli 6B 0353(9 03S3B 










BUFFER 


6SSE 










',?!■■ .' 




00260 


02110 


8W10 




4384 




04930 






STftRT 




01 350 


05068 


BU28 




438F 


04650 


06560 






UIDfO 


ffi " E 


00230 




By 10 








06630 






Hll 


n-.FiiS 


83288 


03220 


BWBLOC 


t ;-■■ D 


03740 


03960 














BHBVTE 


44FE 


06670 


0362B 


B367B 


8375B B3888 






B339B 


i? : .. jk 


BYTCNT 


453C 


85030 


03588 






H2S 


.-j - ::■ ; 


03460 


03510 


CHK50 




424B 


00900 


00820 














CHKSUM 


W3B 


05060 


03B00 






UBUF 


6200 


003.70 


03370 833S8 


CLS 




B 1 E 9 


00288 


01958 






WRBYTE 


0266 


80380 


03618 03500 


DISCftR 


0833 


00210 


B618B 






URHDR 


02S? 


80318 


83358 






ui.'.C 


06080 


02660 


.'. .'.*-■ 








03170 




ERH 






06120 


02S 30 














ERS 




4423 


04060 


02160 


B227B 


02520 02600 










FIN1 




»24C 


01090 


.'.-..:.■ 


,'::■...' 


03380 










FIN2 




42DB 


.' ' B 


0117B 






00000 ERRORS 






FINLDR 


42DB 


B184B 


03260 


83478 






INES 






LftDR 




421F 


W.jZ?. 


02390 






00063 SYMBOLS 






LCHKS 




t . M 


01820 


88760 






BB121 REFERENCES 




LD10 




421B 
4222 


00530 
08600 


00560 
029IB 


83698 












L00D2 




428C 


01210 


01 170 


.' 1 : B8 


03258 03268 03660 03470 










LOADER 


4211 


08518 


08680 


.-',B.i--SH 


81300 03170 B318B 










LRDBYT 


4?8i: 


01220 


08530 


kiKf.iMi 


00830 










LSTR 






81 86B 


B3000 














HSG 




443E 


04160 


81988 


azMfl 


03060 03990 84850 06038 04138 86280 










HSGERC 


utiSi, 


04320 


04080 












O 


P1SGERM 


44 B3 


06358 


04120 














MSGERS 


4A84 


84290 
















HSGIN 


I 


A44B 
44EE 


B6230 
06610 


0197B 
03980 












. 


MSGR 




IAEA 


06260 


02030 










o 


MSGW 




44C4 


06388 


83058 














NOME 




42B1 


00390 


02190 














RIB 




42F4 


02070 


02080 














R20 




438D 


02200 


0.":230 














R30 




UZZ2 


02620 


02488 












i\3y 


R40 




433C 


02500 


02860 












R58 




4367 


82738 


02858 














B6B 




4S7B 


82860 


02B00 














R78 




1, T.Sfl 


028B0 


02580 














R88 




4397 

.'1 T.QF. 


03088 
03898 


82980 
03100 












M 1 w 


RDB18 




4233 


B1288 


81388 












tf * 


RDB28 




42SC 


01350 


B17E8 














RD838 




4205 


01630 


81530 














RDB48 




A2M 


01560 


01640 














RDB50 
RDBE8 




42CD 


01600 

01630 


01470 
01550 












"*^*-^Si>^TS^ %v 


RDBLOC 


4224 


08660 


88970 












•^^J^ *■ 


RDBVTE 


B23S 




02140 


02288 


82258 82290 02328 82350 0262B 82588 02568 
















82628 


0266 B 


02680 02730 82930 02958 










RDHDR 




8296 


00290 


02130 














REftD 




41EB 


02000 


84010 




04100 04140 










READY 




BECC 


00228 


02998 















OMMAHDES DE TRACE DU SPRITE 
♦VI Dr:"123 XX-0 




ooo^ e 



64 



100 REM 
.81 REM 



ECRITURE DUNE TASE 
10 r-EFv., ?2-C ■< 2»ED»(1B2-Zl+Z 

il .^.:=?r-ii'Z-r. D-.;. ..>.,v. «ii:;. xxv .-sg':«d:. if ?■:-:? then sr-i=SK+SG>: 

i> X»V*U-V«48 C-PEEK ' 1131 *V*U ■ 
POI E115l*V-Z RETURN 

RECHERCHE PU DERNIEF- jPPlTE MEMORISE 



112 V=INT 

128 P0KE55423- 
288 REM 
281 REM 

I!? lV-'L". r 'T PJE DEi ? PR ' T ES MEMORISES EN DATA' 
'■" READ DT IF DT— 1 THEN RETURN 



211 MSK"NS«*] 




1212 FOP ,t=0 TO 61 PEAIi PT NE:H I r,mn 12; 
12=.0 PEM 

1251 PEM 

1252 V— 41 2-85 GOSUB 1120 1=67 

1253 FOR X-l TO 24 V-V«I GOSUB 1120 NEXT 

1254 V=-16 3=73 GOSUB 1120 2=33 

i:=,r FOP V=l TO 21 V-V*40 GOSUP 1120 NE>:T 

1256 ','=p=.4 ? = ?-. OOSUE 1123 2«67 

1257 FOP X-l TO 24 v=v-l I50SUE 1120 NEXT 
i: c .'t- "=i?-:9 3-^4 GO' 1120 t* -. 

1259 F0R v»i to - £ \ v-V-40 OOSUB 1128 NEXT 

i:-a' :=r-0 v=-2? oosub 1120 v=85i gosub 1: 

1261 2=62 "—28 GOSUB 1120 W=852 GOSUB 1! 

1262 :=5S '..'=424 OOSUB 1120 V-399 GOSUB l: 
1270 PETUPII 

REM - 
200OI PEM 
win; cfi 
.r...,->7 c E n 

20004 PEM 
20010 DRTR -l 

39988 PFM " 
PERDY. 



TPHCE DU CADRE SPRITE 



DATA SPRITES 



LOTO 



Ce programme permet de calculer les numeros du pro- 
chain tirage du Loto! Avant d'aller toucher votre che- 
que, ilvousfaudra quandmemeentrer les numeros des 
tirages anterieurs et taper quelques lignes de pro- 
gramme : 



- PO initialisation 

- P7 (a I'aide du sous-programme P1) permet d'effectuer la saisie 

des numeros de Loto des tirages anterieurs, et de mettre a 
jour les donnees concernant ces numeros. 

- P8 Tirage aleatoire (a I'aide du sous-programme P1>. 



UTILISATION DE CES PROGRAMMES LA PREMIERE FOIS : 

- Remettre a zero les variables (VAL) et definir la memoire a 80 
(DEFM8) 

- Passer une fois le programme PO qui eftectue ['initialisation 

- Stocker les resultats des tirages anterieurs du Loto (dans I'ordre 
des tirages) a I'aide du programme P7. 

- Eftectuer des tirages aleatoires a I'aide du programme P8. 

UTILISATION COURANTE DE CES PROGRAMMES : 

- Une tois par semaine stocker a I'aide du programme P7 les resul- 
tats du dernier tirage. 

- Eftectuer des tirages a I'aide des programmes P8. 

DESCRIPTION DES PROGRAMMES : 
PO initialisation 
P7 saisie et mise a jour Chaque execution de ce programme vous 

demande 6 fois "NUMERO" et vous devez indiquer un des 

numeros du tirage concerne. 
P8 tirage aleatoire des numeros de Loto. Le nombre de tirages a 

effectuer est defini sur la premiere ligne de ce programme. 

DESCRIPTION DE L'UTILISATION DES MEMOIRES 

- A(1) a A(49) : renseignements correspondents a chaque numero 
de Loto sous la forme : 2 premieres decimales — ecarts et 3", 4' 
decimales - numero suivant'au meme ecart. 

- A(50) a A(59) : renseignements statistiques concernant les 
ecarts : de A(50) a A(58) - ecart a 8 

A(59) - ecart 9 et plus. 

Partie entiere : 

• Nombre de numeros sortis a cet ecart 
Partie decimale : 

• Deux premieres decimales — nombre de numeros restant a cet 
ecart 

• 3" et 4' decimales - premier numero a cet ecart 

COURTY 



PROGRAMME DE 
SAISIE ET MISE A 
JOUR 



LIS! II 
5 N=H+l:H0IT 8:6= 

139 
18 FOR l=M 10 -.: 
'A \W "HlflESO",ai 
I! 

25 next i 

31 FOR 1=68 10 65 
:: NKDiKW 

t!:B=!l:D=V 
3i If B)9lB=9 
it H--E=58:8SB tl 
36 IF "»C;F=r:60T0 
41 

48 F=D 

41 E=X-1 

42 IF X=8iE=6 

43 R'il)=INT fl(H»l 
+<t+F/6)/6:PRT 
C; 

44 H=Y:SSB 11 

45 IF y«C THEN 44 

46 B!U>=(M/6!/6 
43 HEX! 1 

49 H=5S:6SB IU**T 
:P=Xi»=58i6S8 1 
JsH 

51 IF V=9 THEN 59 

52 F9=FRflC FW* 
1HH9 

53 «=Vt6S8 II 

55 IF Y>V!V=V:eOTD 

53 
5? fi(V)=(XtU/E)/6 
59 r>FR8C F8 
61 FOP 1=51 10 5S 
63 B=FR8C R(I)IB(! 

>=IHT ft(l)tfl:fl= 

B=HEXT 1 
65 F8=IHT F8t(6»68 

78 J=68 

38 FOR 1=1 TO 49 



98 IF KII(J) THEN 

690 
188 IF IMS) THEN 

568 
138 IF J=65;F=68:80 

TO 150 
148 F=n(M> 
158 A!I)=F/18t4 
199 60T0 988 
589 IF J=65;riCJ)=58 

tSOTO 98 
518 J=J*1:60T0 99 
m H!!>=nUHl/S 
908 NEXT I 




PROGRAMME DE 
TIRAGE ALEATOIRE 



LIST 13 

2 FOR K=l TO 59 
5 r.--69i«Bl! 8-3=8 

18 FOR 1=58 TO 59 
12 8=!HT B(l)*fliS= 

INT (R/'HO! 
14 IF 6=0 THEN 188 
28 N=!t66B IHOS- 

ll:i)=SiO=i:H=X 
39 IF X=8 THEN 188 
35 IF KCiOX 
43 FOR 1=1 TO C 
50 L=!HT •:h*RflHI'+ 

58 IF L=l THEN 73 



68 FOR 8=1 TO L-l 
78 H=t':6SB 11:101 

73 FOR F=66 TO 65 
75 IF Y=H<F> Ti^ES 

59 
?? NEXT F 
86 H(K>=YiK=K*lsY= 

6 

95 IF K)65 THEN 18 
3 

96 NEXT J 
188 NEXT I 

183 FOR F=69 10 65 

104 F'RI 8(F)! 

105 R(Fi=8:HEXT F 
107 PRT "»" 

118 NEXT* 



INITIALISATION 
DU FICHIER 



LIS! 18 

18 FOR 1=1 TO 47 S 

7ER2 
28 ft!i)=,89*(It2)/ 

!8t4 
38 NEXT I 
48 FOR 1=2 10 46 E 

TEP2 
58 P,<I)=,88*!H2>/ 

1914 
66 HEXT 1 
78 E8=.B882:E9=.B9 

81:F8=.2582:F9= 

.2401 



SOUS - PROGRAM- 
ME DETRACTION 



LIST II 
18 Z=186»FRRC R(H) 
:X=INT 2:7=168* 
FR8C Z:RET 



FX 702-P 



DELREM 



Le but du programme DELREM est de supprimer les 

remarques dans un fichier basic. 

Seules les remarquesdu Type "!" pourront etre otees du 

fichier. 

Utilisation de Delrem : 

1) RUN "DELREM" 

2) Entrez le nom du fichier basic. 

3) Pendant le BEEP et la visualisation de la ligne conte- 
nant au moins un !, les touches DEL et L sont actives. 
DEL supprime tous les caracteres, du premier ! a la 
fin de la ligne. L laisse la ligne intacte. 

4) Le programme se termine en mode EDIT dans le pro- 
gramme modifie, ce dernier etant par ailleurs nume- 
rate de 1 en 1 a partir de la ligne 1 0. 

MarcMAIZIER 




Ytf 



15 



18 ! DELREM 21.89.83 

29 DIN L*I2561 

36 INPUT -Non du (ichier 

BfiSIC-iH* 

48 EDIT H* 

58 RENUMBER 

68 TRANSFORM Nl INTO 

TEXT 

78 DELAY 8 

88 ASSIGN I 1 TO N$ 

98 ON ERROR GOTO 218 

lee'fOR 1=18 TO 9998 

STEP 18 

118 READ I 1,1 i Lt 

128 P=P0S<L«,-!-> 

138 IF P=8 THEN 289 ELSE 



DISP L< 

148 BEEP 588 

158 K$=*EY* 

168 IF K$=" THEN 148 

ELSE K$=UPRC$(K*> 

178 IF MfL- AND 

K«ICHM<138> THEN 148 

188 IF K*=-L- THEN 288 

198 IF P=2 THEN PRINT I 

1,1 ELSE PRINT I 1,1 i 

Lttl.P-U 

288 HEXT I 

218 TRANSFORM N» INTO 

BASIC 

22B EDIT H< 

236 END 



* Tl 99/4A 



suite de la page 6 



1270 
1280 

12M 
4)tt 
L300 

4) 
1310 

1320 

1330 
i.(4 

L350 

i 160 

1370 

i -bO 

L390 

uoa 

14 10 

L420 

U30 

1440 

14 'if! 

1 4 fc rj 
1470 
L480 
L490 

1500 
MA : S 

1510 



1,3.1 

1600 
L610 

lb 20 



17 10 

1720 

L730 
1740 

17S0 

1760 
1770 



1790 
LBOO 

1810 

LO20 



CALL KEY(0,K,S):: IF S-0 THEN 1310 

.IP K=83 AND COLONNE>19 THEN COLONNE=COLONNE-l 

GOTO 1310 

IF K-6B AND COLONNE<26 THEN COLONNE=COLONNE+1 



CALL HCHAR(22,COLONNE+l ,10 
CALL HCHAR(22,COLONNE-1,10 



CALL HCHARl22,COLONNE,96) IDESSIN DE LA RAQUETTE 

IF KD-Q THEN KD=1 ELSE KD-0 

RETURN 

REM *****LA BALLE REMONTE VERTICALEMENT" •* * 

FOR LIGNEB=22 TO 2 STEP -2 

IF LIGNEB<22 THEN CALL HCHAR( LIGNEB*2, J, 104 ) 

CALL HCHARILIGNEB, J, 128) 

GOSUB 1280 

IF LIGNEB>fl THEN 1410 

IF AA( <LIGNEB/2-l), (J-18) )=1 THEN GOSUB 2390 :: GOTO 800 

NEXT LIGNEB 

GOTO 820 

REM •••••-LA BALLE REMONTE OBLIQUEMENT VERS LA DROITE*"" 

CALL HCHARILIGNEB,J,104) 

L1GNEB-L1GNEB-2 :: IF J/2-INT{ J/2 ITHEN J-J+2-KD ELSE J-J + l 

CALL HCHARILIGNEB, J, 128) 

GOSUB 1280 

IP J<26 THEN 1440 

IF J = 26 AND LIGNEB=8 THEN 1820 ELSE 1510 

REM •••••LA BALLE REMONTE VERS LA DROITE TAPE LE MTJR ET CONTINUE DE 

VERS LA GAUCHE***** 

CALL HCHARILIGNEB, J, 104! 

IF LIGNEB=2 THEN LIGNEB=4 

LIGNEB=LIGNEB-2 :: J=J-1 

CALL HCHARILIGNEB, J, 126) 

GOSUB 1280 

IF LIGNEB=2 THEN 1880 

IF LIGNEB>8 THEN 1510 

IP AA(ILlGNEB/2-l),(J-18>)=l AND J>19 THEN GOSUB 2390 :: CALL HCHAR 

04):: GOTO 880 

IF AA( (LIGNEB/2-1 ), (J-1B) )=1 AND J=I9 THEN GOSUB 2390 :: CALL HCHAR 

04) : : GOTO 950 

IF LIGNEB-2 AND J>19 THEN 1880 

IF AA(ILIGNEB/2-l),(J-18))=0 AND J»19 THEN 1710 

GOTO 1510 

REM •••••LA BALLE REMONTE OBLIQUEMENT VERS LA GAUCHE***** 

CALL HCHARILIGNEB, J, 104) 

LIGNEB=LIGNLB-2 :: IF J/2= INTI J/2 ITHEN J-J-l ELSE J-J-2*KD 

CALL HCHARILIGNEB, J, 128) 

GOSUB 1280 

IF J>19 THEN 1640 

IP J=19 AND LIGNEB=8 THEN 1850 ELSE 1710 

REM •••••LA BALLE REMONTE VERS LA GAUCHE TAPE LE MUR ET CONTINUE DE 

VERS LA DROITE***** 

CALL HCHARILIGNEB, J, 104) 

IF LICNEB-2 THEN LIGNEB-4 

LIGNEB=LIGNEB-2 :: J"J+1 

CALL HCHARILIGNEB, J, 128) 

GOSUB 1280 

IP LIGNEB>8 THEN 1710 

IP AA( (LICNEB/2-1) , (J-18) 1=1 AND J<26 THEN GOSUB 2390 :: CALL HCHAR 

04 ) : : GOTO 950 

IF AA( (LIGNEB/2-1), (J-18) ) = 1 AND J=26 THEN GOSUB 2390 

04):: GOTO 880 

IP LIGNEB=2 AND J<26 THEN 2030 

IF AA( (LIGNEB/2-1), (J-18 ) 1=0 AND J=26 THEN 1510 

GOTO 1710 

REM *****LA BALLE TAPE LA PREMIERE BRIQUE A DROITE"** 

IF AA((LIGNEB/2-l),IJ-18))=l THEN GOSUB 2190 ELSE 151 

GOTO B80 

REM •••■•LA BALLE TAPE LA PREMIERE BFIQUE A GAUCHE*** 



(LIGNEB- 
( LIGNEB* 



LIGNEB- 
CALL HCHAR (LIGNEB- 



IP AAI (LIGNEB/2-1), IJ-18) )-l THEN GOSUB 2390 ELSE 1710 

GOTO 950 

REM •*■•» LA BALLE TAPE LE PLAFOND***** 

REM***** LA BALLE MONTE VERS LA GAUCHE TAPE LE PLAFOND ET RETOMBE SUR LA GA 

KR-0 

CALL HCHARILIGNEB, J, 104) 

LIGNEB=LIGNEB+2 : : J-J-l 

CALL HCHARILIGNEB, J, 128) 

GOSUB 1280 

IF AA(LIGNEB/2-l,J-18)=l THEN GOSUB 2390 

IF KR-0 AND J>19 THEN 1910 

IF KR=0 AND J=19 THEN KR=1 :: GOTO 1080 

CALL HCHAR(LIGNEB,J,104): : IF KR=1 AND L1GNEB>2 AND LIGNEB<10 AND AA(LIGNEB 

J-181-1 THEN CALL HCHAR f LIGNEB, J , 1 1 2 ) 

IP J>20 THEN J-J-l ELSE 2130 

LIGNEB-LIGNEB-2 

CALL HCHARILIGNEB, J, 128 ) 

IF LIGNEB>2 THEN 1980 ELSE 1900 

REM***** LA BALLE MONTE VERS LA DROITE TAPE LE PLAFOND ET RETOMBE SUR LA DR 

KR-0 

CALL HCHARILIGNEB, J, 104 ) 

LIGNEB=LIGNEB*2 :: J*J+1 

CALL HCHARILIGNEB, J, 128) 

GOSUB 1260 

IF AA(LIGNEB/2-l,J-18)=l THEN GOSUB 2390 

IF KR=0 AND J<26 THEN 2050 

IF KR=0 AND J=26 THEN KR-1 i: GOTO 1170 

CALL HCHARILIGNEB, J, 104 ) :: IF KR-1 AND LIGNEB>2 AND LIGNEB<10 AND AAILIGNEB 

J-1BI-1 THEN CALL HCHAR ( LIGNEB, J, 112 ) 

IF J<25 THEN J=J*1 ELSE 1990 

LIGNEB-LIGNEB-2 

CALL HCHARILIGNEB, J, 128 ) 

IF LIGNEB>2 THEN 2120 ELI 

NEXT II 

DISPLAY AT(22,1)SIZ£!13>: 

DISPLAY ATI24.1 ISIZEI 13> : 

CALL KEY(0,K,S):: IF S=0 

IF K«78 THEN 2230 

IP K-79 THEN 2260 ELSE 2200 

CALL CLEAR 

DISPLAY AT{12,3):"OK AU REVOIR ET A BIENTOT" 

STOP 

FOR 1=1 TO NOMBRE 

SCORE(I)-0 :: DISPLAY ATI 8* I *2 , 1 2 ISIZEI 3 ): SCORE 1 1 I 

NEXT I 

DISPLAY ATI22.1 1SIZEI131 :BS 

DISPLAY ATI24.1 ISIZEI 13) :BS 

GOTO 670 

REM •••••TRACE DU MUR***** 

CALL HCHARI22, 19,104,8) 

COLONNE-22 :: CALL HCHARI 22 .COLONNE, 96 ) 

FOR 1=4 TO 8 STEP 2 

CALL HCHARI I , 19,1 12,8 I 

NEXT I 

RETURN 

REM***** 

AA(LIGNEB/2-l,J-lB)>0 :: KR-1 

CALL SOUNDI200.-1 ,0) 

SCORE(II)=SCOREIII )*1 

GOSUB 2500 

RETURN 

REM INITIALISATION""* 

2460 FOR 1-1 TO i :: FUR J- 1 TO a :: J.A 1 1 , J \ '. 

2470 NEXT J : : NEXT I 

2480 J-INT(8*RND)*19 :: LIGNEB-10 

2490 RETURN 

2500 DISPLAY ATI8*1I , 2,12)SIZEI3) :SC0RE11I ) 

2510 IF SCOREIID-24 OR SCORE! 1 1 ) = 48 OR SCOREIII)=72 OR SCORE(II)«96 THEN GOSUB 

2330 :: GOSUB 2450 

2520 RETURN 

ATTENTION, LES DIESES (S) SONT REMPLACES PAR E 



IMH0 

1090 

UCBH' 

lyoo 



1970 
L980 
/2-1 

200LI 
2010 

2020 
2030 
iHTI. 
2040 
20M) 
2060 
2070 
208 
.10^0 
2100 
2110 
2120 
/2-1 
2130 

2140 
2150 
2160 



2190 

2200 

2210 



2 3 
2 310 

2320 

23 10 
2340 
2330 
2 J 6 

2J70 
2. '.8 

:: 190 
24O0 
2411 

.: •; J D 

2 4 30 

.■ < | 

24 5C 



I 2030 

■1 AUTRE" 
-PARTIE? O/N" 
l THEN 2200 



EDITEXT 



Ce "mini-mini" Editeurdetextevouspermetd'ecri re sur 

CE1 25 en majuscules et en minuscules avec des fonc- 

tions supplementaires. 

En voici le mode d'emploi : 
RUN 

TEXTE:- 

Puis tapez votre texte, ligne a ligne (24 caracteres), 
en utilisant les codes de controle suivants : 
1 poursouligne (exemplel) 
= pour centrage du texte (exemple 2) 
# pour souligne et centrage (exemple 3) 
(£& pour minuscules. 

Vous pouvez combiner tous les codes de controle et 

obtenir, par exemple en tapant : 

# B(a) onjour(a) TOTO 

une phrase centree et soulignee dont la partie onjour 
sera en minuscules. 

Remarques: certaines lignes demandent parfois 
10 secondes pour etre editees. 

Avant d'utiiiser ce programme il vous taut verifier si la 
valeur des CALL guides se trouvant dans les sous-pro- 
grammes CA1 et CA2 correspond a la version de votre 
PC 1251. 

Pour cette verification, procedez comme suit: 
Si a la question PEEK &7FFF la machine repond 0, rem- 
placez CALL 7DFE par CALL 7DE9. 
Si la machine repond 3, remplacez CALL 7DFE par 
CALL 7DCC. Si elie repond 240, ne changez rien. 
Dememe, pour CA2,leCALL&FE08estaremplacer par 
7DF3 si la reponse est 0. Par FDE6 si la reponse est 3 et 
inchange si la reponse est 240. 

Catherine CHAVINIE 



ex. 1 

BGNJOuR 
91 2 
S0r.JDUB 



dcvcntx 

SHARPENTIER 

poMrir^ 




30MJ0UP 



ez 5 



3onjour TQ~0 



ifl:ri Fa» ! titm 7$o>*2> 
3J<8>*40: POKE 8C5C6 
.2. 8. 121. 12«. us, 55, 
2.13.45.7 

28: GOSUB "CS1" 

38:IN?UT "TEXTE: "SBS<8) 
: IF MCaiO'END' 
THEN 58 

48: END 

58:1= LEN <BS(8)):8S= 
LEFTS (BJ(8).1):F=8: 
IF {«=■=• THEN 158 

6BiIF BS="I" LET Fait 
GOTO 158 

78:N=8:V=l: IF BS="«" 
LET F=l:L=L-l:Bl(8>= 
RIGHT! <B«(B).l> 

88:S=8: FOR 1=1 to l:B» 
= MITJS (B«(8).I.l): 
IF BS="3" LET S=<S"8 
)*32: GOTO 118 

98:IF CS=32> HNI <(«*<• 

«■) or (B*>'Z')) am 

<BS<>" ") THEN tie 




146 
158 



178 

138 

19» 
288 

21 .3 

228: 

598 



IF BJ=" ' POKE 8C5C7 
.32: CALL SC5CS:N=N+ 
I: GOTO 118 
POKE 8.C5C7, BSC t**$ 
:n=n*i: COLL SC5C6 
NEXT (I IF N>24 BEEP 
2: PRINT 'LIGNE TROP 
LONGUE...": GOTO 28 
IF N<24 FOR I«N TO 2 
3: POKE 8C5C7.32: 
CA..L. SC5C6: NEXT I 
GOSUB 'CM*! IF P«l 
GOSUB "Cat": FOR I=! 
TO 24: POKE SC5C7. 15 
9: CSlL SC5C6: NEXT 
I: GOSUB "CM" 
GOTO 28 

V=8:S=8: FOR 1=2 TO 
L:B$= MID* (B»(8).Ii 
1): IF B$="3" LET S= 
<S=8>»32 

IF (S=32) drill (<?*<• 
«") OR <B»>*Z">> 
THEN 188 
V=V*1 

NEXT II IF V>23 BEEP 
2: GOTO 28 
V=V-i:l=L-1:B»(8)= 
RIGHT* (BS<8).L) 
N=13- INT (V/2): FOR 
1=1 TO N: POKE SC5C7 
.32: CALL SC5C6: 
NEXT II GOTO 88 

"car cbll S7dfe: 

RETURN 

"Ca2" CBLL SC5CC: 
CBLL 87E88: RETURN 
GOSUB "Cai": POKE SC 
5C7.S41: CftLL 8C5C6: 
GOSUB "CB2": END 



MURDE 



BRIQUES 



Voici une version de I'ancetre de tous les jeux d'Arca- 
des.remisau gout dujour.Cette version est compatible 
MZ80K et 80A. La semaine prochaine nous vous offri- 
rons une version sur MZ700 (en couleurs !) qui utilise 
toutes les possibilites de ce nouveau materiel (capa- 
city, couleurs, manettes de jeux). 
En attendant : a vos raquettes ! 
Le mur de brique n'a qu'a bien se tenir. 

Simon CHAGNOUX 



; wito les.: 



.0:GETS*:PESTOBE 



rispccsex-n 


















= : TO l4tPBIHT*l B iSK ! 


-. I ■ ■■•■•IE TiPPIl 


n PRINT 



.58.194.195.231. 

Z E'l=5ei0PiO;=50114!P=5:LIMIT (i 

:■ QOi-L* 5OO0!H=l 

IO REflDfl! IFfl=-ITHEN 30 

20 POI E I +D 1 - 0: 1= [ * 1 : GOTO l 

» PP[HT"E"::t1C=nC*4lS0 

40 FF HIT- 

56 PPIMT" 

ee print* 

70 PRINT" 
H PRIHT" 

iij F-PIliT ■ 
100 PRINT 

MO FLIP I: 

120 PPIIIT 1 

130 M*ie :Y«2Qifi=-|:B=-i:OIMT(»3>M 4f»"-HT 113>>| 

:oo pot e=.:_4:s*: >■'.'. 40 >.n 

201 U8RC01>iT«T+TtPEEK<M) nUStKPI ■ 

202 T = T.r<FmcC2":IFT:lTHEirr=l 

203 ift m::thent=,i>: 

204 PPIwn-sSPCtTiiP.* 
20? P0KE5324tJ*X+<VM8),9 

210 X=X+fi:V=V*G:P=FEEt ''>532 48*' V»40> »: IFTN ■•6THEH6OSUB2000i 8QT0263 

262 GOTO200 

265 PRItlTCOi" POINTS ET":R;" BflLLES CS":|FCO=MCTH£N30 

300 GOTO 2O0 

2OO0 REM 

2010 IF P=52 THEM POIE 53249*X+(V*48>.52ftt-X- 

2020 IF P=121 THEN POKE 53248+--X V*40>. 121 :X=) 

2030 IF P=l« THEtl ':0=O:'« IS: E=i: RETURN 

2040 !F P=208THEtl C0-C0*2eiB— I :PETURII 

:«5G IF P= e? THEM CO*CO+50: E* -6 J RETURN 

2130 IF P=75 THEM P0KE5324S+: ■■■>■ Vt 40 >. 75: "=:>h: '.'=■,'-[ 

2140 IF P=7t" THEN POI E53248*X*< V*40> . 76: X-X-fl: V=v-E 

2200 F-P-l:IFRO0THEN2210 

2203 IFG$»' , C-THENr0O0 

::o^ PFiiiT'-EBaoncaBB-iTf* r-.--- :o: iemfonmu; w.-im j::_co-e:u£4": 

2210 H-H+l: X=20+H:v=10: TEMPO ?:Wi IC 'flOEO EF&&FEOCECI" 

2999 RETURN 

7-000 ::^-+i:v*Y*6:PETURN 

seee — i-^-t--Tr-r t -t i- -— -— --n r™— 

T.O05 PPlHTTBeil5':"H » 50 Point* 

5010 PRIHTTCe'15>: a " = 20 B 

5020 PRINTTfie'l5>s*s = 10 3 

5030 PPIHT"BB [tB-ljcener.T d« la fcmueti« a ».»uche :i«JCf.e 1 

5035 FFTNT' t'*rloci.-itr,t ^ |.) iMu«iii a droit* Mouth* » B H 

5048 PRINT" Er,irain*ri«nt ou Com>ei it ioi, ?"1 

5050 USR< 2483 >: GET Gfi IFG*=" "THEN 5050LI ST6O0O- 

5060 IF G* = "C" THEN 6=5:*. = It GOTO 6000 

5070 IFBSC<6t*"'".': fc?THEHUSP't2':MiTCiS058 

50SO PFINT"E":PRINT- TailU d« la roiuett* U a 9> "| 

5090 USR<24I3>I0E1 K«iPRIHTK»l "3": : IF K=""TNENPPINT" -t:G0TO5i 

5100 &=Uft.a«)tIFG-0THEN5O90 

6O00 FOPI = lTOG:Rf=Pi*"--:uE::T:PI=P>«" 3S" :m: : = -?-&; T = MIT '40-5 

6018 T=INT<(40-6> 2>:RETURN 

7000 PRINT-I SCORE :"lC0!" HI -SCORE "iHS 

7010 IF CO HS THEN HS=C0 

7030 PRINT 




^vr 



^& 



-:G£I G1:IF Gl=" TKll 7920 



lieee if &=i then 



"1(( 



HEBDOGICIEL 27, rue du Gal-FOY 7S008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS 

NOM: • MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: C CHEQUE GCCP 



12 



PUITS, FEUILLES, CISEAUX 



Qui coupe la feuille, qui recouvre le puits ou sont torn- 
bes les ciseaux ? la feuille, le puits ou les ciseaux ? 
Serez-vous plus fort que votre ORIC 1 ? 



z rem ********m«m*t*tm*m< 
10 RBfftWITCRRaMMMHEBIWGIC IfcLM 
15 REtiM It* 

20 REMttJtU t'U PUITS Ml 

30 PEIilt OE LA FEUILLE »li 

33 PEMI1 ET DES CtSEFfc':;ut 

40 REMM lit 

43 REM** mi iiniiiiii.i.ii 

se cls papbw in. , 

oS PRINT PRINT PRINT 

Tit PRINT" **EXPLICHTKHI t'E Lh PE'JLE K- JEUtf 

£0 PRINT PRINT 

H PRINT" LE JEU [KJ PUITS- PE LA FEUlLUE" 

100 PRINT" ET C'ES C1SEHU-: E0"i it-t: u mm IOhe." pp mi 
120 PR1III" VOUS -WE: CUftTRE L iX'ItlHlEUF EM" 
136 PPllll EFFE< lUANl UH CHOW " 
HO PRINT" 1 POOP PUITS" 

150 PRINT" 2 POUR FEUILLE" 

160 PRINT" _': PijI.iP i |:b.Hi.i:. 

I70 PPIllT'OLU SE CONFfrOHTE ii CELUI LE LH MACHINE" PRIIL 

!.-• RPIIH" LP. MPhIEME irftiiHHtiTE i. '.'Ml -jP 1 1 IPOIV 
200 PRINT" SITUATIONS HJIT': '.OUTRE i. I itrn.'. . 

H^ErtU;; LUNTPF FEUILLE" 



220 ppii 




FEU 


LLE '1 




IP:-' IP! 


;■■*.} ppii 










HU- 


250 UAI1 


...... 


HP, IMIT20 EXP 








:■ ■• pen 




ftWWflTION DE* 




til ie 




../" MCI 






Ml- 1 Ml. 






/.-.'! PEMI 






TEL* 






■ -.. Hi'i 






c. .Irlu 






.:.-.- Pt.NI 








1 It . , 








'- EL* SCORE 1 
FFEREHCE PES S 

L .,i ifu.iti.if' 


itmil 


II 








INKS PRIH1 PR 


NT PP 


III PP 1 

II 'I. 

i.mcpf 


NT print 
PRINT 










US".B B«A6S. 6 ■ 


• rt. ppii 




1 PRINT" NOUS 


iptite 


"N- E 


JEU A 51 


■:-V p: -..] 












.-ft* HMll 


006 > 


■0 D-C E«C 








W5 ft* I 


■*■ pun ■ Mi' ■- ■ p p. i ■ ; : t. 


I.V ■ ■ 


"CISEAUX 


.1"" M Ill 




-MiTtnem fun ojup 






410 RETW 


Mil P 


i HOIX KS JGUEUPS 
INK? PRINT PRINT 


.. 








CHOIX t€ L'OROINATEUR 




440 R-II 


■ bhp 


1 '*3' PIHQ UhI 


-' ■ [III, 







0RIC1 



4^8 REM I . [ EUR 

4*H FPINI'INt'llHIt .. VU'PI . imi., I IIIK ■ 
470 PPllll" M.I | IS =1" 

Jim PRINT" FEU1LI E 

4*8 PRINT" CI9EMJH * 3 ■" i-t'V PPlNTv 

500 IF- IClF'V :IHMir,i.'[...'....HL .H.HHWH. 

• u PRINT PRIMI ■vim- DEVE2 nu-l'iLiU- I .2 ■«' I" 

;.Jr?. MA.1T500 

■.,.,,■ GOTO460 

£60 REMII HfFlLHHL* i'L - I IPrtGEi n 

-.10 PPINI PRIM' l">- 

...... f--k im r --..-..hi Mi;f... iHniiiiu '.iPi'lNt-iHih IIRE" 

640 PRINT PRIN1 t»» o ■«!■ v . THE.. ;-& -h* H'l ■ 
630 PRINT 

000 REJIMCOHPhRHISUN [■£':. DEW NRflGESM 

!,' . ' .| 

Sid it. vaiftwt-M^u ":+■' v=iMin-H=i ■■:*■■ v=!hhc-h=- .the -I'lt.""" 

030 IF«V«IFH£iH»l)OR'V^«NWl«. iOt" V-WHt-fl-0 'THENfaftW ■'"■" 

S40 It ■ V=|HI(I'H.-.. .i.ip. '■■^iilllwii -iP' '■=;;hH|.h=I .TIft.lli,i.r-.l.iMfin... 

900 REMll TENI't in MiPF II 

910 PRINT PP[NI 'UllinHIHE '".I ..I.I.+-HIIIMIIIMII- IPIIII 

9£0 PRINT-COUPS "AitS ".(.." SUP '.B PR1H1 

930 PftlMT" rtUb ".i." I CrMtlHKIEUR "C- 

•411 IM.'HI HIIINIIIIHIIIHIIlllllll- HA 11 450 

950 IFC-BTHENGOTOI500 
■ ■■ .. D-E . 

•??6 1FF"Ei-i .THEUiiOTi..1»Hmi l -. J. i- 

I00U PP|Nl"l ,.■■■ t IM II i -.1 .1 II 

r.00 IFE [.tut lO'i i'ii 4-;t».'fi T-h >.■■■( i.Jl; ■ ■».- 

: •■>! F--Pr'il ■ ... ■ 'I P!" 

1810 PRINT "L'E: IPt.'-V.:»_i:. Pt. M.tf. ii ti-=» iif I 0* PPIHTi,* 
■ ■ i. n U>"O"THEHGOTO300 

1 =:--*M P. Pi "Lb ll'il I ii' t II .'Lb mil ■! 'HI- 

]-*W IFE (IPIHI.-.i.l.i|-i».i 

i860 PPIHT-il ESI IMPOSSIBLE It VOUS DCPHPTflGER" 

1070 F*INT"0ESIREZ-VOUS Rl ER(0 H-i" CETC« PWIHTC* 

1800 1FG« = "ii" i Hi NGOTO300 

: (58 .i" Ufll i > hp |MI i .i« ,:h* tirt' 

I960 PR1HT1 - IH»n I FlMll lF PLUS i"P'" 

;-l"iP|i. • -■ PP tP ii II " UE1U» F'RTllli,* 

930 IF.,*- ii --p.iM.-u «0 

1940 SHOOT HMTM EH001 MFI1T30 5HMT EHd 

^000 ZmP URIT30 .-HP 

2810 IHK6 ppim- . iii if- Mm if', ih.ii:: mhit mtniwii " 

2920 RETURN 

.ii«T ;.h,:„;,t wfllTift <;H00T 

3010 INKS-PRINT" L'ORDIHflTEUR " CHCHI Cf COUP" i^i-i 

3030 RETURN 

4f '.i . ■ 001 in. i ' ..' [ PLOW 

4010 IMPS PRINT" VOLIS HVtZ OfCNE C£ • UUP " E =E + 1 
4030 PETUPH 




MASTERMIND 



Ce programme vous permet de mesurer vos capacites 
de reflexion en jouant aveo I ordi nateur. Pour raff ichage 
des resultats, il utilise les fonctions graphiques du MP- 
Fll (implantation de laformedu carre en 5000-5090, uti- 
lisation en 51 00-51 60 et 2000-2090). 
Le nombre genere contiendra de 2 a 10 chiffres selon 
vos indications. Un petit true: en 1020, lorsque vous 
rentrerez le mot "Bravo", frappez "CONTROL-G" apres 
chaque lettre. Le resultat vous reserve une surprise I 




MULTITECH 



tit? 



4* 



>H0r1E 

>LIST 

100 GOSUB 3000^ REN IMPLftNTftTION OE LFi 
FORME (CftRRE) 
150 H* = "LE NOMBRE MYSTERIEUX" 
160 L ■ l=C - 1 

165 GOSUB 5100' REM flFFICHfiGE DU CftRRE 
lSS SPEE0= 100 
170 FOR I - 1 TO LEN <A*) 
180 UTPiB L' HTflB C 
190 PRINT MID* CM. 1,1). CflLL 

- 198 
200 L - L + 1 
218 C = C + 1 
220 NEXT I 
225 SPEED" 255 
230 GOSUB 5100 
240 UTflB 18' HTflB 18 

230 PRINT "UOULE: UQUS LIRE LES RE'iLE-;" 
260 UTAB 13 HTAB 20 
270 INPUT "DU JEU ? "iXX* 
280 IF HID* 'XX*. I. 1) < > "0" 

THEN 383 
290 GOSUB 3000 
300 HOME 'NC = 8 
330 UTflB 10. HTflB 5 

340 PRINT "C0I1BIEM DE CHIFFRES UJUlEZ- i 
OUS" 

350 MTflB 15' HTAB 3 

360 PRINT "PO'JB lE NOMBRE OUE JE= l - , i 
CH0I3IR ?■ 

378 UTflB 28' HTflB 18 
388 PRINT H9E Z h 18 CHIFFRES- 
398 UTflB 28- HTAB 33' INPUT H 
400 IF N ; 2 OR N > 16 THEN L'Tn£ JJ 
HTflB 33 PRINT -' " fjoro 39$ 



450 • 
470 



1 10 , 
'TAB 24 HTflB 3 PRINT ' 



.E 



RND LI) 

318 DIM XR«18> 

320 XRI - hi 

338 UTAB 24' HTflB 3- PRINT "TION TRAUAIL 

EST TERMINE. A UOUS " 

548 HOME ■ UTflB 20' HTflB 5' PRINT •***» 

ENTREZ UOTRE NOMBRE ****" 
360 UTflB 22' HTAB 13' PRINT "=.«> " 
373 UTAB 22 HTAB 28' INPUT A* 
580 IF LEN <A*> < > LEN <N*> 

THEN 575 
398 H=8'NC=NC+1C"3 
608 IF A* '•- N* THEN 1000 
610 XR* = N*'B = It - 
620 FOR J = I TO N 

638 IF MID* (A*, J . 1 > < > l1ID*<NiJ. 
1) THEN 678 
648 XRK J> = "K" 
630 B - B + 1 
666 GOTO 730 
678 FOR I » 1 TO ft 

638 IF MID* <A*.J.1> < > MID* CXR». I 
. 1 ) THEN 720 
690 H = M + I 
700 XR*(I) ■ "X" 
718 GOTO 738 
720 NEXT I 
730 NEXT J 
735 STOP 

748 IF B = 3 AND M » THEN 2500 
730 GOSUB 2880 
778 HOME UTAB 15 HTAB 3 
7S0 PRINT "UOULEZ UOUS CONTINUER ; ' 
798 UTAB 15 HTflB 29' INPUT fl* 
880 IF MID* ' fl*. 1, 1 ) ■ "0" THEN 

HOME GOTO 548 
810 "TAB 13' HTAB 3 
820 PRINT -ftONNBGEi JE 5UIS jyRd.'E 



ETIEZ CAPABLE DE TMUUER " 


NTINUER)" 


833 UTAB 18' HTflB 18 


2548 


GET CS 


848 PRIHT "LE NOMBRE flTROUUER ETflIT " -■ N 


2330 


GOTO 770 


% 


3008 


HOME 


853 UTAB 20' HTAB 18 PRINT " UOUS AL'IE 


3818 


UTflB 1 HTAB 13 


Z TENTE ";NC; "COUPS" 


3028 


PRINT "REGLES DU JEU" 


860 UTAB 24' HTflB 23' PRIHT "fl BIENTOT 


3030 






3843 


. - 4' UTAB L 


878 GET A* 


3850 


PRINT "CE JEu DE LOGICUE UOUS "ER 


888 GOSUB 5180 


T" 




890 END 


3068 


UTflB L + 2 PRINT "DE HESURER 'OS 


1800 HOME ' UTAB 10. HTflB 10 


CAPCITES DE REFLEXION" 


1010 PRINT "UOUS AUEZ TROUUE EN " ; NC - 2F 


3070 


UTflB L ♦ 2' PRINT "LE NOMBRE E=T 


OIS 


HOISI 


AU HASARD" 


1020 UTflB 15 HTflB 10' PRINT "BftflUO" 


3888 


UTAB L ♦ 2 PRINT "ET UOUS ESSflVE 


1838 UTflB 23 HTAB 5 INPUT "ENCORE JE 


SE L 


E DEUINER" 


FOIS "rXX* 


3098 


UTAB L ♦ 2 PRINT "POUR CHAflUE PR 


1343 IF MID* <XX*.1,1) = "0" THEN 1$$ 


POSTION ' " 


1058 GOSUB 5130 


3108 


"TAB L • 2 PRINT " UN CHIFFPE BI 


1068 EHD 


N PLACE = UN CARRE BLANC" 


2088 HGR ' UTflB 24 HTAB 5 


3110 


PRINT "UN CHIFFRE MAL PLACE » JN 


2010 PRINT " •»*» RESULTAT POUR :E I }J° 


RRE ORANGE" 


****" 


3500 


RETURN 


2030 IF B - THEN 2068 


5000 


POKE 232.0 POKE 233.96 


2335 V - 30 


3010 


POKE 24576.1 POKE 24377.0 


2053 : Z = B HCDLOR = 3' GOSUB 21=0 


i'320 


POKE 24578.4 POKE 24579-8 


2060 IF M = THE" 2030 


5030 


T = 


2065 Y = 103 


5850 


READ D POKE 24588 ♦ T.D 


2878 Z » V\ HCJLOR = 5 GOSUB 215? 


5068 


T = T + I 


20S0 GET C* r EXT RETURN 


0070 


IF D i ) 8 GOTO 5050 


2158 SCALE- 10 X = 29 


3080 


DATA -36.45.54.63.0 


2160 FOR I - 1 T.j Z 


3090 


RETURN 


2170 DPAI4 1 h- X,'. ■: = :: - 28 


9100 


HGR : HCOLOR ■ 3 


2183 NEXT I 


5165 


SCALE- 40 POKE - 16302.0 


2190 FETUPN 


sua 


FOR R = 3 TO 12S STEP 2 


2580 home - r -l Ifl HT«B 5 


5180 


ROT- R 


2513 f=KIHT It) '-0U1 N --EZ -.-:.-- -I- 


3130 


DRAM I hT 13*. 95 HE <T P 


CHIFPFE III" 


3140 


Call - 356 


2520 'TmB It HT-.I 13 


3180 


TEXT 


2330 ==ifi T ----=ez »'.-* : -'j : -. -:.■■ :; 


5I60 


RETURN 



CINEMA 



Ne laissez pas vos amis vous espionner quand vous 
tapez ce programme et organisez "Monsieur CINEMA" 
chez vous! En augmentant les datas, vous pouvez 
rendre ce jeu digne de la television ! 




lOO CLS ; LET 5=0 

110 PRINT RT 1Q,S; FLASH U IN 

K 6, PRPER Xi "»#* CINEMR-OUIZ*-t ■< 

12© FOR 1=1 TO 5. PAPER I: BORD- 
ER 1+1; PRUSE 30: NEXT I 

150 PRINT RT 21 ,4-, "RPPUYEZ SUR 
UNE TOUCHE" 

X*B ZF IMKEV*-"" THEN &D TO 120 

150 CLS : BORDER £: 

SEC DIM 0|OB,S»J : DIM fl*13»,301 
* ! DIM M i3l?) 

ISO RESTORE 100O 

170 FOR 1=1 TO 30 

i?? SIS? I*' 1 ' RW »" 11 

180 LET 0=1 

130 FOR 1=1 TO 1© 

200 CLS 

210 GO SUB 900 

320 PRINT OS <XJ ; "T" 

250 LET VsINT f 1 + (RND*3.i J 

24© LET W=IMT IH(PWf?0)) 



250 IF U=X THEN GO TO 24.0 

2&B LET ZsIHT lit tRNC-l-3e» > 

270 IF Z=X OR Z=U THEN GO TO £6 


2 eg IF YlM THEM GO TO 31© 

2»0 PRINT "!■• ";A*IX): PRINT "2 
, ft» ( Dj : PRINT "3 . » ; R* J.T.V 

300 GO TO 350 

310 IF Y<>fi THEN GO TO 310 

320 PRINT R I, 
- "; R* IXJ i PRINT' "3. 

330 DO TO 350 

340 PRINT "I. "; 
• •■; »*IZ> ; PRINT 

350 PRINT 

360 INPUT C 

370 PRINT 

380 IF COY THEN GO TO 500 

39© LET S = S*-1 

400 PRINT "C-EST EXACT" 

410 GO TO 55C 

500 PRINT "OeSOLCC'EST INEXACT 

5E-© PAUSE 1©© 

600 NEXT I 

70«l PRINT "UOTRE SCORE EST DC " 



"MRGNIFIO 



; 5*10 

710 IF S>6 THEN PRINT 
UE PERFORMANCE » } 5 i " 

72© IF OJ-23 THEN STOP 

500 INPUT "UN BUTRE OEl> ?";X* 

810 IF X*(1)="0" THEN GO TO 100 

S20 STOP 

900 LET X=INT ll+(RND#30)i 

91© FOR K«l TO O 

CiiO IP M.M(K) THEN OO TO 3BS 

93© NEXT K 

940 LET N «©> =X 

950 LET 0=0+1 

95© RETURN 
1000 DATA "QUEL EST LE REALISATE 
OR DE BftMfiMfiS", " WOODY ALLEN" 
1010 DRTR "0UI fl REALISE LE MRUO 
IT", "FRITZ LRNG" 

10S0 DRTR "OUEL EST LE RERLISRTE 
OR DU &UEPARD", "UISCONTI" 
1030 DATA "DUEL EST LE SCENARIST 
E DE UN TRAMUA*' NONHE DE5IR","TE 
•tNESSEE WILLIAM" 

1040 DATA "REALISATEUR DES PRRAP 
LUIE5 I>E C«EWOlWP" , "VflCeUES DEW 

105© DATA "DUEL EST LE REALISATE 

•JR DE DER5DU DU5ALA" , "KURQ5AUA ' 

1060 DATA "OUI A REALISE LB DOLC 

E UITA", "FELL INI" 

10S0 DATA "OUI REALJSA DUEL AU S 

OLEIL" J "KING UIDOR" 

109© DATA "OUI A ECAIT LE 5CEWAR 

IO DEI ENPftWTI DU PftftfiO 13 " . "JRCO 

Via- PREUERT" 

1100 DATA "REALISRTEUR DE THE SE 

RWWT", "L05EY" 

1110 DATA "REALISATION DE 5AUUE 

OUI PEUT LA VIE", "GODARP" 

1120 DRTR "DE OUI EST REUE DE SI 

NGE" , "MARCO FERRERI" 

1130 DRTR "RERLISRTEUR DE CBDAUR 

E5 EXOUIS" , "FRANCESCO ROSI" 

1140 DATA "DE OUEL RERLISRTEUR £ 

ST UIUB ITRLIfl" , "ROBERTO ROS5ELL 

EMI" 

115© DRTR "RERLISRTEUR DE LB STR 

RDR" , "FELLINI" 

1160 DATA "OUI A REALISE LP DERN 

IERE FEMME' , "MARCO FERRERI" 

1170 DRTR "REALISRTEUR DE IL ETB 

IT UNE FOI5 ORNS L ' OUEST" , 'SERGI 

O LEONE" 

1180 DRTR 'QUI R REALISE HBIR" , " 



SP 



£CTR^ 



MILOS FORMRN" 

11*0 DATA "DE OUI SONT LES DENTS 

DE LA MER" , "5TEUEN SPIELBERG" 
IS©© DATA 'DE OUI EST TAXI DRIUE 
R", "MARTIN 5COR5ESE" 
1210 DRTR "REALISRTEUR DE COUSIN 

COUST.NE".. "-JEAN CHftRLES TRCHELLP. 

1220 DATA "RERLISRTEUR DE MUIT E 

T DEMI" , "FELL.TM3" 

t£50 DATA "OUI A REALISE LA PRI5 

E DU POUUOIR PAR LDL'IS XIU" , "ROS 

fEfO-XUX" 

1240 DATA "DE OUI EST LE PROCES" 

, "0A50N WELLES" 

1250 DATA "REALISATION DE SRLO 

U LES 120 JOURS DE SODOME" , "PASO 

LIMI" 

1260 DATA "REALISRTEUR DE CLEO D 

E 5 A 7","RGNE5 UARDA" 

137© DATA "DE OUI EST LA PRISON" 

, "BERGMAN" 

126© DATA "AEALI&ATEUR DU MEPRIS 

" , "&ODARD" 

1290 DATA "OUI A REALISE ONE PLU 

5 ONE" , "GODARD" 

13©© DATA "OUEL EST LE REALISATE 

UP DE UN CMIEN ANDALOU" , "BONUEL' 




ALIEN 



les extra-terrestres arrivent et vous ne disposez que de 
quatrepetits canons a laser pour sauverlemonde. Que 
de responsabilites! 



CALL SCREEN! 8) 
HPQINTS-100 
CALL CLEAR 

'ALIEN": : t 
BASIC SIMPLE"::: 
LES ALIENS ENVAHISSENT LA" 
'TERRE ! J! !!.'::: 

DEPLACEZ VOUS AVEC "S" 

'TIREZ AVEC VOTRE CANON LASER" 
EN PRESSANT 'A' " 

'DEPLACEZ VOUS AVEC ' S ' " 

'ET AVEC "D 1 ": : 
: : "BONNE CHANCE! !!"::: 

••ENTER' POUR COMMENCER . " : AS 
240 CALL SCRE£N<6) 

250 CALL CHAR(96,"0000001B7EFF7E18"> 
260 CALL COLQR(9,15,l) 

270 CALL CHAR(104,"0018180000161BOO"t 
2B0 CALL COLOR(10,16,1> 

290 CALL CHARI112, "1618181818181811*") 
300 CALL C0L0R!11,7,1) 
310 CALL CHAR194,"181B181B3C7EFFFF") 
320 CALL CHAR(95,"00OOO0OO0OOO0OFF") 
330 CALL CLEAR 
340 RANDOMIZE 
350 P=l 
360 Z-0 
370 N=-l 
380 H=l/2 
390 RM*24 
400 CM=32 
410 B=3 
420 POINTS-0 
430 CALL CLEAR 
440 R=INT(10*RND*1) 
450 IF B=0 THEN 1280 



no 


PRINT 


: -in 


PRINT 


1 SO 


PRINT 


160 


PRINT 


1711 


PRINT 


inn 


PRINT 


: 4Q 


PRINT 


/DO 


PRINT 


2 i 


PRINT 


220 


PRINT 


230 


INPUT 



TV 



99/4* 



460 PRINT "SCORE:";POINTS, "RECORD: 


";MP01NTS 


470 PRINT :::;:::::::::::::::::: 






4B0 CALL HCHAR!1,28,94,B] 






490 01NT(12«RND+1> 






500 CALL HCHAR(24,1,95,32) 


+ 




510 MC=16 






520 CALL HCHAR(24,MC,94) 






530 CALL HCHAR(R,C,96> 






540 GOSUB 690 






550 GOSUB 1000 , 






560 OR-R ^-^^3 






<i7n nr=c C_ 






580 RC=SGN(RND-H»H) • 






590 TR=R*RC O 






600 IF TR-RM THEN 1170 
610 IF TR=Z THEN 580 










620 CC=SGN(RND-H) 






630 TC-C*CC 






640 IF (TC>CM)4(TC=Z)THEN 620 






650 R=TR 






660 C-TC 






670 CALL HCKAR<OR,OC,32) 






680 GOTO 530 






690 CALL KEY(l,K,a) 






700 IF i*K THEN 730 






710 CALL HCHAR{24,1,32) 






720 RETURN 






730 IF K>3 THEN 710 






740 ON X GOTO 760,830,870 






750 RETURN 






760 CALL HCHAR(24,MC,94) 






770 CALL SOUND(200,-7,9) 






780 IF MC=C THEN 910 






790 CALL VCHAR(2,MC,112,22) 






800 CALL VCHAR(2,MC,32,22) 






810 GOSUB 1020 






82 RETURN 






830 CALL HCHARI24,MC,95) 






840 MC-MC-P 






850 CALL HCHAR(24,MC,94) 






860 RETURN 






870 CALL HCHAR(24,MC,95) 






880 MC=MC+P 






890 CALL HCHAR(24,MC,94) 






900 RETURN 






910 CALL VCHAR(R+1,MC,112,23-R) 






920 CALL VCHAR(R+1,MC,32,23-B) 






930 CALL SOUND(1000,-6,0) 






940 FOR K=47 TO 32 STEP -1 






950 CALL HCHARIR.MCK) 






960 NEXT K 






970 CALL CLEAR 
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suite de la page 1 



te de votre TRS 80 a la Vitesse du 
son. 

Un utilitaire pour HP 75: vous 
tapez dix lignes de REM pour 
une de programme et vous ne 
vous souciez plus de la place oc- 
cupee, avec DELREM de Marc 



MAIZIER les REM disparaissent 
comme par enchantement ! 

Un classique QUIZde CINEMA 
pour SPECTRUM et un archi- 
classique MASTERMIND pour 
MULTITECH MP-FII Un petit re- 
tour vers I'enfance pour termi- 
ner. PUITS. FEUILLE et CISEAUX 
pourORICI. 

Que celui qui possede tous 
ces ordinateurs et qut est capa- 
ble de taper tous ces program- 
mes avant vendredi prochain 
nous ecrive. il a gagne un pro- 
gramme (sur cassette !). 

14 



980 POINTS=POINTS+24-R 

990 GOTO 440 

1000 IF ABS(C-MC!<5 THEN 1020 

1010 RETURN 

1020 IF RND>.3 THEN 1010 

1030 CALL SOUND(275,-3,24-R) 

1040 CALL VCHAR(R+1,C,104,23-R) 

1050 CALL VCHAR(R+1,C,32,23-R) 

1060 IF MC=C THEN 10BO 

1070 RETURN 

1080 CALL CLEAR 

1090 CALL SOUND(1000,-5,0) 

1100 B-B-l 

1110 PRINT " BASE DETRUITE. " : B; 

1120 PRINT :::::::::::: 

1130 CALL SOUND(1000,110,30) 

1140 CALL SOUND{2000,110,30) 

1150 CALL CLEAR 

1160 GOTO 440 

1170 CALL CLEAR 

1180 PRINT "VOUS ETES PERDU.": 

1190 PRINT "LES ALIENS DEBARQUENT. " 

1200 PRINT :::::::::::::::::: 

1210 FOR K-l TO 7 

1220 CALL SOUNDI200,524,3) 

1230 CALL SCREENI9) 

1240 CALL SOUNDt2G0,440,3> 

1250 CALL SCREEN! 5) 

1260 NEXT K 

1270 GOTO 1280 

i280 CALL CLEAR 

1290 PRINT "TERMINE.", POINTS; "POINTS" 

1300 PRINT :::::::::: 

1310 CALL SOUND(2000,110,30) 

1320 CALL SOUND(2000, UO,30) 

1330 IF POINTS<=MPOINTS THEN 1390 

1340 MPO I NTS= POINTS 

1350 PRINT "NOUVEAU RECORD 111"::: 

1360 FOR K=l TO 30 

1370 CALL SOUND(-100,I10*X*5,3) 

1380 NEXT K 

1390 PRINT "ENTER POUR REJOUER." 

1400 INPUT "FONCTION CLEAR POUR ARRETER. 

1410 GOTO 410 



BASES RESTANTKK.' 




DES 



PLUS ON SE HATE, MOINS ON AVANCE ! ! 

Osez affronter votre HP 41 ! Mais ne croyez pas trop 
vite a la victoire ; il est des situations renversantes. Et 
de favori, vous termiherez lanterne rouge... 
Regie pour deux joueurs : 

Le but du jeu est d'obtenir le premier 200 points grace 
aux lancers successifs de deux des. En debut de par- 
tie, les joueurs ont zero point. Pendant son tour de 
jeu, chaque joueur tire les des autant de fois qu'il le 
desire. Mais si le total des des est 7, il perd la main ainsi 
que I'acquit de son tour, il conserve neanmoins le capi- 
tal de points obtenu lors du tour precedent. 
Par contre si les des sortent un nombre different de 7, il 
peut continuer ou s'arreter. Dans ce dernier cas les 
points obtenus pendant son tour s'ajoutent a son capi- 
tal. Si les des tires sont egaux, on gagne le double de 
leur somme. 



Frederic DARIN 

Contre la HP41 : 

Taper le programme. Faire SIZE 003. Stocker une 
semence quelconque dans le registre 00. Assigner 
" M " a la touche £ + et " N " a la touche LN. Lancer le 
programme par XEQ "DES". L'ecran affiche; "JOUE - 
JE ??". Si vous voulez commencer le premier, pressez la 
touche ENTER (Non) et R/S. Sinon pressez R/S uni- 
quement. Les des sont tires aleatoirement — la HP41 
ne triche pas!! — Imaginons que vous commencez la 
partie. Le tirage est 2 et 6. L'ecran affiche ; : :2 + 6= 8. 
En partant de la gauche, le premier nombre est votre 
capital. Le deuxi^me et troisieme represented les 
deux des et le dernier nombre le total du tour de jeu. 
Lorsque vous jouez, la HP41 s'arrete apres affichage 
du tirage. Si vous continuez, pressez S+ sinon pressez 
LN. Lorsque c'est son tour la HP 41 joue automatique- 
ment et vous precise lorsqu'elle vous passe la main. 
Pour refaire une partie, pressez SHIRS+. 
II ne vous reste plus qu'a jouer. Vous vous apercevrez 
bien vite qu'il ne suffit pas de vouloir faire le maximum 
de points ; il faut parfois savoir se moderer pour ne pas 
tomber de trop haut... 



LES GRANDS PROJETS 

Un Grand Projet, c'est avant tout un but, une idee, dont la complexity ne permet pas denvisager 
seul d'en assumer la charge 

Ce but, cette idee sera pour nous un logiciel et ce logiciel doit remplir des fonctions telles qu'une 
personne ne pourrait le realiser, seule, dans des conditions normales. 

Alors nous vous proposons de regrouper vos moyens et, par I'intermediaire d'Hebdogiciel. de 
realiser ces Grands Projets. 

Pour debater, nous vous proposerons une idee et.sur un materiel donne, nous allons vousguider 
jusqu'au terme de cette realisation. 

La progression se (era par etapes, chaque etape s'appuyant sur les etapes precedentes et 
venant les completer par une fonction nouvelle 

Vous trouverez, bien sur. dans la rubrique des Grands Projets, le listing de la meilleure solution 
proposee par un lecteur pour I'etape precedente, ainsi que le probleme a resoudre pour I'etape 
suivante 

Pour un materiel donne, cette rubrique sera mensuelle car il taut, bien entendu. que vous puis- 
siez realiser et expedier vos solutions que nous devons tester, imprimer et ditfuser. 

Afin de faciliter la tache des collaborateurs d'Hebdogiciel, nous vous demandons de nous 
adresser vos solutions, accompagnees d'un texte d'explication si necessaire, sur un support cassette 
ou disquette suivant le type du Grand Projet, en precisant. bien sur. votre envoi Grand Projet Materiel X 

N'oubliez pas que votre solution doit imperativement utiliser I'ensemble des etapes preceden- 
tes et conserver la coherence dans I'appellation des donnees ou leur description. 

Si vous souhaitez que nous vous renvoyions votre support, joignez une enveloppe timbree a 
votre adresse. 

Et puis, ecrivez-nous pour nous faire savoir quels sont les grands projets que vous souhaiteriez 
voir dans Hebdogiciel. 

Et puis... et puis... il est temps de parler du premier Grand Projet 

Le premier GP sera a la fois modeste et ambitieux. Modeste parce que lidee n'est pas nouvelle 
mais ambitieux parce que nous souhaitons que vous realisiez un vrai chef d'ceuvre : 

UN JEU DE DAMES 
sur TEXAS INSTRUMENT Tl 99/4A en Tl Basic avec la console et un magnetoscope a cassettes 

Pourquoi TEXAS et pourquoi un JEU DE DAMES ? 

II est possible que nous vous reservions une surprise 

Nous vous proposons cette semaine le debut de ce programme qui comporte ; 

- le menu de depart; 

- une fonction d'affichage et de suppression dun message; 

- une fonction d'attente de I'entree dune touche. 

L'objet de la premiere etape ; 

1) Completer la partie du programme entre 20000 et 20200 qui devra contenir 

- I'affichage du titre du jeu avec des effets graphiques et/ou sonores ; 

- la regie du jeu qui pourra etre affichee au choix du joueur. 

2) Completer la partie du programme entre 240 et 2200 qui devra contenir ; 

- I'affichage du damier sur le cote de l'ecran ; 

- un reperage des cases par des lettres et chiffres materialises sur le bord du damier ; 

- I'affichage des pions. 

Realisons ensemble un grand projet francais! 



un jeu de dames 



100 REN DANES 

110 GDSUB 20000 

120 GGSUB 20200 

130 REI1 AFFICHAGE MENU 

140 CALL CLEAR 

150 PRINT 'CH01SISSEZ :':::' 1. DANIER': 

OBLEHES':: 

140 PRINT ■ 4. REPRISE D'UNE PARTIE'::: 

170 INPUT CHOII 

IBO IF ICH0II)=lH(CUIl«<=4)/2 THEN 230 

190 HEt='ERREUR DE CHOII' 

200 LIS=2 

210 SOSUB 25050 

220 GOTO 130 

230 ON CHOII GOTO 240,2200,4200,4200 

240 REN DANIER 

2200 REM JEU/TI99-4A 

4200 REN PR0BIEIK 

4200 REN REPRISE PART1E/CASSETTE 

4210 GOTO 130 

20000 REN INITIALISAT10N/RE6LES 

20005 CALL CLEAR 

20010 PRINT -INIT/REGLES - 

20020 RETURN 

20200 REN HUSIBUE 

20210 CALL S0UNDI2O0,440,15! 

20212 FOR 1=1 TO 12 

20214 CALL HCHAR(24.i4»I,HSC(5E6tPFHiTES ENTER', 1,111 



8KIBL -DES- 
62 TONE 6 

83 TONE 5 

84 SF 2? 
65»LBL a 
66 8 

87 CF 29 

88 FIX 8 

89 CF 88 
18 CF 81 

11 CF 85 

12 CF 86 

13 CF 88 

14 RCL 88 

15 CLRG 

16 ST0 88 

17 " JOUE- JE ???" 

18 PROMPT 

19 X*Y? 
28 SF 66 
21 CLST 
224LBL ■»■ 
23*LBL 83 

24 • OK..." 

25 FC? 86 

26 RVIEU 

27 TONE 7 

28 CLA 

29 SF 85 
38 XEQ 68 
31*LBL 66 

32 RCL 66 

33 PI 

34 t 

35 ENTERt 

36 Xt2 

37 * 




JEU CONTRE T199/4A' 
20214 NE1T 

20220 CALL KEU0,R,Sl 
20230 IF S=0 THEN 20210 
20235 CALL HCHARI24, 17,32,12: 
20240 RETURN 
25000 REN ATTENTE 
25002 FOR I=! TO 

25004 CALL HCHHR(24,14*l.ASCISE6it'FAITES ENTER', I. II 
25004 NOT I 
25010 CALL K£Y<0,R,SI 
25020 IF 5=0 THEN 25010 
25025 CALL HCHARi24, 17,31, 12) 
25030 RETURN 
25040 REN 

25050 REN AFFICHAGE NESSA6ESHE1 A LA LIGNE LIG ET CENTRE 
25060 FOR 1=1 TO LENiNEts 

25070 CALL HCHASIllS,lNTU28-LEN(NE«l)/21tI,ASClSEG«(NEI,l,lM,ll 
25080 NEXT 1 

25085 CALL SOUNB(200,440,0) 
25090 SOSUB 25000 

25100 CALL HCHAR!LlS.lNT(l28-LtN(BE!iJ.<21.3:,LENi»Elll 
251 la RETURN 

15 



38 FRC 

39 ST0 88 
48 i 

41 * 

42 INT 

43 1 

44 * 

45 FS?C 85 

46 RTN 
47*LBL 18 

48 FC? 86 

49 ARCL 61 
58 FS? 86 

51 RRCL 82 

52 I-::- 

53 ARCL t. 

54 "K" 

55 PRCL 1 

56 ■!■=■ 

57 X=Y? 

58 SF 88 

59 ST* Y 
66 XOY 

61 7 

62 X=Y? 

63 CT0 81 

64 RUN 

65 FS?C 68 

66 ST* X 

67 ST* Z 

68 X<> Z 

69 SRCL X 
78 TONE 1 

71 FC? 66 

72 PROMPT 

73 AYIEU 

74 ST0 Y 

75 RCL 82 

76 ♦ 

77 ST0 Z 

78 288 

79 XOY 
88 - 

81 X<=8? 

82 CT0 82 

83 XOY 

84 35 

85 XOY 
66 X<=Y? 

87 GT0 83 

88 XOY 

89 RON 
98 XOY 

91 15 

92 X>Y? 

93 SF 88 

94 RUN 

95 XOY 

96 Rt 




181 XOY 
162 X<=Y? 
183 SF 66 

164 XO Z 

165 FS?C 66 
186 GT0 83 

167 -J ARRETTE' 
188 RVIEU 
169 TONE 1 
116 TONE 8 
111 GT0 64 
112»LBL 61 

113 -H)HH- 

114 BVIEH 

115 TONE 8 

116 TONE 1 

117 TONE 6 

118 • PERDU... 

119 BVIEH 
128 6 

121 SF 85 
122»LBL -N' 
123*LBL 64 

124 CF 81 

125 -BIEN VU... 

126 FC?C 85 

127 flVIEH 

128 FS? 86 

129 CLD 

138 -T0THL=- 

131 FS? 66 

132 ST* 82 

133 FC? 86 

134 ST* 81 

135 FS? 86 

136 BRCL 82 

137 FC? 66 

138 BRCL 81 

139 BVIEH 
148 RCL 82 
141 288 



142 X<=Y' 

143 GT0 62 

144 RCL 81 

145 XOY 

146 X<=Y? 

147 GT0 82 

148 FC?C 66 

149 SF 86 

158 -Pi NON TOUR" 

151 FS? 66 

152 RVIEU 

153 "8 VOUS..." 

154 FC? 86 

155 flVIEU 

156 

157 ENTERt 

158 FS? 66 

159 CT0 63 
168 TONE 4 

161 TONE 8 

162 STOP 
163*LBL 82 

164 -T0TBL=" 

165 RRCL 82 

166 FS? 86 

167 RVIEU 

168 PSE 

169 • 1ES0LE...- 
178 FC? 66 

171 • BRAVO" 

172 RVIEU 

173 PSE 

174 -JE " 

175 FC? 66 

176 "VOUS " 

177 -FGACHE- 

178 FS? 86 

179 "I-..." 
188 FC 66 

181 -HZ.." 

182 FC? 66 

183 BEEP 

184 RVIEU 

185 ENJ 
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JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI 
DEUX NOUVEAUX RECUEILS DE LOGICIELS, ENCORE 
PLUS COMPLETS, ENCORE PLUS BEAUX! 



Le tome 2 est toujours en basic simple, sansperipheriqueni module complemen- 
taire. Les jeux y son t encore plus nombreux : Backgammon, Sous-marin, Trappe, 
Roulette, Casse-tete, Puzzle, Echecs, Tachitoscope. Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique. Calcul de 
puissance, Regions de France, entrainement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.). des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 
Voir le bon de commande en page 8. 
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GESTION DE FICHIER. 600F en- 
viron. 

Ce logiciel se presente sous la 
forme d'un module enfichable 
accompagne d'un manuel d'utili- 
sation en FRANQAIS. Les mes- 
sages du programme sont ega- 
lement en frangais, mais traduit 
de I'americain; quelques ques- 
tions restent posees dans la Ian 
gue de Shakespeare (generale- 
ment des yes ou no), cela n'af- 
(eclant pas la fiabiiite du pro- 
gramme 

Le materiel necessairea ('utilisa- 
tion rle ce logiciel est la configu- 
ration de base (console + tele + 
lecteur de cassettte) mais, bien 
entendu.unlecteurdedisquette 
et une imprimante optimisent 
ses possibilites 



L'utilisation commence par la 
creation de fiches: le program- 
me vous demande successive- 
ment le nom du fichier et pour 
chacune des zones qui vont 
composer vos fiches son nom, 
sa nature (texte, nombre entier, 
nombre decimal, nombre en no- 
tation scientifique) ainsi que la 
longueur de chacune de ces zo- 
nes. Cette description n'est pas 
sans consequence car seules 
les zones decrites comme nu- 
meriques pourront etre utilisees 
pour les operations mathemati- 
ques ou statistiques qui sont in- 
dues dans les fonctions du mo- 
dule. 

Les zones TEXTE sont limitees a 
15 caracteres ce qui est parfois 
insuffisant (pour trailer des 
adresses par exemple), mais il 
est possible de reserver deux 
zones de texte et de disposer de 
30 caracteres. 

La creation des zones terminee. 
ce logiciel vous indique le nom- 
bre de fiches disponibles en 
fonction des criteres que vous 
avez fixes 

Lensemble de ces donnees re- 
presente environ de 9 a 12 K sui- 
vant le nombre de zones et la na- 
ture de ces zones, ce qui autori- 
se par exemple 295 fiches de 
40 caracteres: 

DATE TEXTE Scaract 

NO TEXTE 2 

VAL NUM DEC 5 

NOM TEXT 15 

ZON TEXT 10 

line vous reste plus qu'asaisir les 
donnees de votre fichier et vous 
pourrezalors disposer des outils 
suivants 

- Recherche d une fiche par 
un numero ou par un des cri- 
teres crees 

- Reorganisation du fichier 
sur n'importe lequel des cri- 
teres crees (ordre croissant 
ou decroissant) 




Ces possibilites de reorganisa- 
tion appellent deux observa- 
tions: 

• le numero de fiche change 
avec la reorganisation, 

• quand deux fiches ont le me 
me rang pour le tri en cours 
(egalite de critere), il n'y a 
pas conservation de I'ordre 
de tri precedent, ce qui ne 
permet pas un tri sur 2 crite- 
res 

Parcontre.la consultation des fi- 
ches est circulaire, cest-a-dire 
qu'apres la dermere fiche, vous 
retrouverez la premiere fiche et 
inversement. 

Le fichier est protege contre les 
suppressions accidentelles car 
la consultation se fait en deux 
temps avec demande de confir- 
mation 

Les possibilites de sauvegarde 
sont multiples: cassette CS1, 
cassette CS2, DISK, RS232 
(pour communiquer avec d'au- 
tresTi99/4A)etc 
Les fonctions de transformation 
qui sont prevues sont extreme- 
ment agreables, cela permet 
d'effectuer des calculs sur les 
zones numeriques de chacune 
des fiches et les operations pro- 
posees sont nombreuses et 
completes (18 operations diffe- 
rentes), on peut les utiliser sue- 
cessivement. creant ainsi verila- 
blement un programme de cal- 
cul L'option "analyse des fiches" 
permet egalement d'autres 
fonctions statistiques, sur tout 
ou partie du fichier. 



Ce module fait partie d'un en- 
semble de 3 logiciels dont "STA- 
TISTIQUES" et "GESTION DE 
RAPPORT" qui viennent com- 
pleter "GESTION DE FICHIER" 
constituant un outil puissant et 
d'utilisation agreable. 



Nous aurons ulterieurement 
(occasion de revenir sur les mo- 
dules "STATISTIQUES" et "GES- 
TION DE RAPPORT" afin de les 
etudier el de souhgner les liens 
qui existent entre eux. 



